perl tar file suffix parsing problem

[kmaclean]

No such file: 'anonymous-20090917-/LICENSE' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/mfc' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/mfc/ar-19.mfc' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/mfc/rb-01.mfc' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/mfc/ar-16.mfc' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/mfc/ar-23.mfc' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/mfc/ar-22.mfc' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/mfc/ar-17.mfc' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/mfc/ar-20.mfc' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/mfc/ar-18.mfc' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/mfc/ar-21.mfc' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/mfc/ar-24.mfc' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/etc' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/etc/README' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/etc/HVite_log' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/etc/PROMPTS' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/etc/HDMan_log' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/etc/audiofile_details' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/etc/GPL_license.txt' at lib/TarFiles.pm line 361
No such file: 'anonymous-20090917-/etc/prompts-original' at lib/TarFiles.pm line 361
Uncaught exception from user code:
	write error on file: /data/svn-tarfiles/SpeechCorpus/Trunk/Audio/MFCC/16kHz_16bit/MFCC_0_D/anonymous-20090917-tgz.tgz
 at lib/TarFiles.pm line 365
	TarFiles::_createTar('TarFiles=HASH(0x5099188)', '/data/svn-mirror/SpeechCorpus/Trunk/Audio/MFCC/16kHz_16bit/MF...', '/data/svn-tarfiles/SpeechCorpus/Trunk/Audio/MFCC/16kHz_16bit/...') called at lib/TarFiles.pm line 190
	TarFiles::_processAudio('TarFiles=HASH(0x5099188)') called at lib/TarFiles.pm line 128
	TarFiles::_makeAll('TarFiles=HASH(0x5099188)') called at lib/TarFiles.pm line 91
	TarFiles::BUILD('TarFiles=HASH(0x5099188)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Class/MOP/Method.pm line 125
	Class::MOP::Method::execute('Moose::Meta::Method=HASH(0x5080818)', 'TarFiles=HASH(0x5099188)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Moose/Object.pm line 59
	Moose::Object::BUILDALL('TarFiles=HASH(0x5099188)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Moose/Meta/Class.pm line 278
	Moose::Meta::Class::new_object('Moose::Meta::Class=HASH(0x4575518)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Moose/Object.pm line 28
	Moose::Object::new('TarFiles', 'HASH(0x5098300)') called at ./VoxForge.pm line 144
	VoxForge::process('VoxForge=HASH(0x3bb9078)') called at ./VoxForge.pm line 169
 at lib/TarFiles.pm line 365
	TarFiles::_createTar('TarFiles=HASH(0x5099188)', '/data/svn-mirror/SpeechCorpus/Trunk/Audio/MFCC/16kHz_16bit/MF...', '/data/svn-tarfiles/SpeechCorpus/Trunk/Audio/MFCC/16kHz_16bit/...') called at lib/TarFiles.pm line 190
	TarFiles::_processAudio('TarFiles=HASH(0x5099188)') called at lib/TarFiles.pm line 128
	TarFiles::_makeAll('TarFiles=HASH(0x5099188)') called at lib/TarFiles.pm line 91
	TarFiles::BUILD('TarFiles=HASH(0x5099188)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Class/MOP/Method.pm line 125
	Class::MOP::Method::execute('Moose::Meta::Method=HASH(0x5080818)', 'TarFiles=HASH(0x5099188)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Moose/Object.pm line 59
	Moose::Object::BUILDALL('TarFiles=HASH(0x5099188)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Moose/Meta/Class.pm line 278
	Moose::Meta::Class::new_object('Moose::Meta::Class=HASH(0x4575518)', 'HASH(0x508fe90)') called at /usr/local/lib64/perl5/Moose/Object.pm line 28
	Moose::Object::new('TarFiles', 'HASH(0x5098300)') called at ./VoxForge.pm line 144
	VoxForge::process('VoxForge=HASH(0x3bb9078)') called at ./VoxForge.pm line 169

[kmaclean]

see TarFiles.pm

	if (scalar(@files)) { # only create tar file if there are files/folders in source
		my $tarfileTarget = $parms->getTarfileTarget($cwd, $target);
		if ($tgtSuffix eq 'tgz') {
			my $tgz = Archive::Tar->new;
			$tgz->add_files(@files);
			$tgz->write($tarfileTarget, COMPRESS_GZIP); 
			if ($tgz->error) {
				$logger->error ("tgz write error");
				confess "write error on file: $target\n";
			}		

[kmaclean]

see TarFiles.pm

# don't use fileparse with a suffix list for source folder path... if audio submission contains 
	# "tar", "tgz" or "zip" in its three character random sequence, fileparse will think it
	# is a suffix and parse it out... 
	#  <wrong>: my ($srcFilename,$srcPath,$srcSuffix) = fileparse($source,@suffixlist); </>wrong>