I have not used Archive::Tar so this may not make any difference but give this adjustment a try to see if it helps.
if($tar_engine == undef) { print "\nCant get tar object\n"; } else { my @filelist = $tar_engine->extract; if(! @filelist) { my $ret = 1; print "\nError in extraction.\n"; } else { print "\nCompleted Successfully\n"; } }
In reply to Re: Archive::Tar is working with perl-5.8.7 but giving Out Of Memory error with perl-5.20.1
by fishmonger
in thread Archive::Tar is working with perl-5.8.7 but giving Out Of Memory error with perl-5.20.1
by Sushant_K
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |