Fixed bug (I hate perl)
authorwerner <werner>
Thu, 18 Oct 2001 16:43:23 +0000 (16:43 +0000)
committerwerner <werner>
Thu, 18 Oct 2001 16:43:23 +0000 (16:43 +0000)
log.pl

diff --git a/log.pl b/log.pl
index 8e20849..98b760c 100755 (executable)
--- a/log.pl
+++ b/log.pl
 #
 # I revised the perl script I sent you yesterday to use the info you
 # send in on stdin.  (I am appending the newer script to the end)
+#
+# $Revision: 1.2 $
 
 $cvsroot = $ENV{'CVSROOT'};
 $fromaddr = "cvs\@cvs.gnupg.org";
-
 # turn off setgid
 #
 $) = $(;
@@ -43,7 +44,7 @@ while (@ARGV) {
        }
 }
 
-($logfile) || $logfile = "$cvsroot/CVSROOT/commitlog";
+($logfile) || ($logfile = "$cvsroot/CVSROOT/commitlog");
 
 $srepos = shift @files;
 $mailcmd = "| /usr/sbin/sendmail -t -oi";