Re: Archive::Tar is working with perl-5.8.7 but giving Out Of Memory error with perl-5.20.1

[fishmonger]

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";
    }
}