sas Sat Oct 16 18:21:43 2004 EDT
Modified files:
/CVSROOT loginfo.pl
Log:
debugging
http://cvs.php.net/diff.php/CVSROOT/loginfo.pl?r1=1.75&r2=1.76&ty=u
Index: CVSROOT/loginfo.pl
diff -u CVSROOT/loginfo.pl:1.75 CVSROOT/loginfo.pl:1.76
--- CVSROOT/loginfo.pl:1.75 Sat Oct 16 18:09:41 2004
+++ CVSROOT/loginfo.pl Sat Oct 16 18:21:43 2004
@@ -67,6 +67,12 @@
open FC, "$last_file.$id"
or die "last file does not exist";
my $last_directory = <FC>;
+
+if ($last_directory eq undef) {
+ print "LAST DIRECTORY IS EMPTY\n";
+ &bail;
+}
+
chop $last_directory;
close FC;
# remove the cvsroot from the front
@@ -91,9 +97,13 @@
# before a line that begins with "Log Message"
my ($logmsg,$tag) = &get_log_message();
+print "$$ before fork\n";
+
# now we fork off into the background and generate the email
exit 0 if(fork() != 0);
+print "$$ after fork\n";
+
$| = 1;
#print "Reading summary file\n";
@@ -350,5 +360,6 @@
# eat STDIN (to avoid parent getting SIGPIPE) and exit with supplied exit code
sub bail {
my @toss = <STDIN>;
+ print "$$ bailing\n";
exit @_;
}
--
PHP CVS Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php
