diff options
| author | joe <joe@FreeBSD.org> | 2001-04-20 03:19:32 +0800 |
|---|---|---|
| committer | joe <joe@FreeBSD.org> | 2001-04-20 03:19:32 +0800 |
| commit | c0cf549a93e8c84a2030dc44d9b6f5b88c774a08 (patch) | |
| tree | ebe1cba7bb365c0d441361e7a98f7ceceb2b52a5 /CVSROOT | |
| parent | 0812e06fb7e618c096d107365e4b4c942c30a80b (diff) | |
| download | freebsd-ports-gnome-c0cf549a93e8c84a2030dc44d9b6f5b88c774a08.tar.gz freebsd-ports-gnome-c0cf549a93e8c84a2030dc44d9b6f5b88c774a08.tar.zst freebsd-ports-gnome-c0cf549a93e8c84a2030dc44d9b6f5b88c774a08.zip | |
Declare some variables before use.
Diffstat (limited to 'CVSROOT')
| -rwxr-xr-x | CVSROOT/log_accum.pl | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/CVSROOT/log_accum.pl b/CVSROOT/log_accum.pl index ef227dc3f5f5..9dad65babe2a 100755 --- a/CVSROOT/log_accum.pl +++ b/CVSROOT/log_accum.pl @@ -22,7 +22,7 @@ require 5.003; # might work with older perl5 -###use strict; +use strict; use Sys::Hostname; # get hostname() function ############################################################ @@ -68,6 +68,8 @@ my $FILE_PREFIX = "#cvs.files"; # Remember to comment out if using for other purposes. #------------------------------------------------------- if (hostname() =~ /^(freefall|internat)\.freebsd\.org$/i) { + my $meister; + $MAILADDRS='cvs-committers@FreeBSD.org cvs-all@FreeBSD.org'; if ($1 =~ /freefall/i) { $meister = 'peter@FreeBSD.org'; @@ -105,6 +107,9 @@ my $X_BRANCH_HDR = "X-FreeBSD-CVS-Branch:"; my $CVSROOT = $ENV{'CVSROOT'} || "/home/ncvs"; +my $PID = getpgrp(); # Process id; used for generating filenames. + + ############################################################ # # Subroutines @@ -515,7 +520,6 @@ umask (002); # # Initialize basic variables # -$PID = getpgrp(); $login = $ENV{'USER'} || getlogin || (getpwuid($<))[0] || sprintf("uid#%d",$<); @files = split(' ', $ARGV[0]); @path = split('/', $files[0]); @@ -658,30 +662,30 @@ for ($i = 0; ; $i++) { # # Spit out the information gathered in this pass. # -foreach $tag ( keys %added_files ) { +foreach my $tag ( keys %added_files ) { &append_names_to_file("$ADDED_FILE.$i.$PID", $dir, $tag, @{ $added_files{$tag} }); } -foreach $tag ( keys %changed_files ) { +foreach my $tag ( keys %changed_files ) { &append_names_to_file("$CHANGED_FILE.$i.$PID", $dir, $tag, @{ $changed_files{$tag} }); } -foreach $tag ( keys %removed_files ) { +foreach my $tag ( keys %removed_files ) { &append_names_to_file("$REMOVED_FILE.$i.$PID", $dir, $tag, @{ $removed_files{$tag} }); } &write_logfile("$LOG_FILE.$i.$PID", @log_lines); if ($RCSIDINFO) { - foreach $tag ( keys %added_files ) { + foreach my $tag ( keys %added_files ) { &change_summary_added("$SUMMARY_FILE.$i.$PID", @{ $added_files{$tag} }); } - foreach $tag ( keys %changed_files ) { + foreach my $tag ( keys %changed_files ) { &change_summary_changed("$SUMMARY_FILE.$i.$PID", @{ $changed_files{$tag} }); } - foreach $tag ( keys %removed_files ) { + foreach my $tag ( keys %removed_files ) { &change_summary_removed("$SUMMARY_FILE.$i.$PID", @{ $removed_files{$tag} }); } |