Hi gurus,
While running the follwing piece of code, am getting this error "Can't call method 
"write" without a package or object reference at subCA.broken at line 239".
What is wrong in this script.Can anybody correct this pls..
Thanks in advance...
 >>>>>> Script >>>>>>>>>>
sub mergeArchives
{
        my ($srcPkg,$dstPkg) = @_;
        die "ERROR: Both archives must exist [$srcPkg,$dstPkg]:$!" unless -e $sr
cPkg && -e $dstPkg;

        print "----< LOADING [$dstPkg]\n";
        my $dstTar = Archive::Tar->new();
        $dstTar->read( $dstPkg, 1 );

        print "----< LOADING [$srcPkg]\n";
        my $srcTar = Archive::Tar->new();
        $srcTar->read( $srcPkg, 1 );

        print "----< MERGING\n";
        my @srcFiles = $srcTar->list_files();
        my @dstFiles = $dstTar->list_files();
#       print "@srcFiles \n";
#       print "@dstFiles \n";
        $srcTar->extract( @srcFiles );
        $dstTar->extract( @dstFiles );
        #$dstTar->add_files( @srcFiles );
#        $dstTar->write( $dstPkg, 1 );
#       my $tempy=Archive::Tar->create_archive($dstPkg, 1, @srcFiles, @dstFiles)
;
        $dstTar=Archive::Tar->create_archive($dstPkg, 1, @srcFiles, @dstFiles);
#        print join "\n", Archive::Tar->list_archive ($dstPkg, "");
#       $dstTar->read( $dstPkg, 1 );
#       my @dstFiles = $dstTar->list_files();
#       print "All of em: @dstFiles \n";
        $dstTar->write( $dstPkg, 1);
        unlink @srcFiles;

        print "----< [$dstPkg] contains all files\n";
}



Thanks
Raj.



_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to