ANOTHER CLUE:
I dropped the tar -tzf tesing portion of sub bakkup. There is now only one
system call, and the email sending is now only doubled up.
Child or Exit codes issue?
Jo
sub bakkup {
my $archive ="/home/devsite/bakTEST/$todayUTS.tar.gz";
my @filesToBackup = ("$petFile");
$backupStatus.="Failed to begin backup $! \n" unless defined(my
$pid=open(KIDDO, "-|" ));
if ($pid) {
while (<KIDDO>) { }
close KIDDO;
} else { system
("/bin/tar","-czf",$archive,@filesToBackup)==0 or $backupStatus.="Failed
system call\n"; }
}
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
