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