diff options
| author | joe <joe@FreeBSD.org> | 2001-04-19 07:00:17 +0800 |
|---|---|---|
| committer | joe <joe@FreeBSD.org> | 2001-04-19 07:00:17 +0800 |
| commit | c2ff00f85e6bb251f98e2c1fcff58f036695c429 (patch) | |
| tree | 0dbbaf1cbd76f1629dc6a2d737b53478b3cfe1c4 /CVSROOT/log_accum.pl | |
| parent | ad51a38b554352070641756d79689e9d350d4390 (diff) | |
| download | freebsd-ports-gnome-c2ff00f85e6bb251f98e2c1fcff58f036695c429.tar.gz freebsd-ports-gnome-c2ff00f85e6bb251f98e2c1fcff58f036695c429.tar.zst freebsd-ports-gnome-c2ff00f85e6bb251f98e2c1fcff58f036695c429.zip | |
Remove some unnecessary spaces, and add a commented out 'use strict'
for later use.
Diffstat (limited to 'CVSROOT/log_accum.pl')
| -rwxr-xr-x | CVSROOT/log_accum.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/CVSROOT/log_accum.pl b/CVSROOT/log_accum.pl index abbca51e2283..78610150b6d6 100755 --- a/CVSROOT/log_accum.pl +++ b/CVSROOT/log_accum.pl @@ -22,6 +22,7 @@ require 5.003; # might work with older perl5 +###use strict; use Sys::Hostname; # get hostname() function ############################################################ @@ -449,7 +450,7 @@ sub mail_notification { # which branches were modified during the commit. if ($X_BRANCH_HDR) { my %tags = map { $_ => 1 } &read_logfile("$TAGS_FILE.$PID"); - print MAIL "$X_BRANCH_HDR ", join(",", sort keys %tags), "\n"; + print MAIL "$X_BRANCH_HDR ", join(",", sort keys %tags), "\n"; } print MAIL "\n"; @@ -609,7 +610,7 @@ while (<STDIN>) { /^Approved by:$/i) { next; } - push (@log_lines, $_); + push (@log_lines, $_); } } &append_line("$TAGS_FILE.$PID", $tag); |