RE: Tar or system interference? (NOT having to do with while )

[Jo for lists and groups]

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: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/