diff options
| author | peter <peter@FreeBSD.org> | 1995-11-27 16:59:34 +0800 |
|---|---|---|
| committer | peter <peter@FreeBSD.org> | 1995-11-27 16:59:34 +0800 |
| commit | b1b773fd92d7036a93cfbebdeb7a589085aa2759 (patch) | |
| tree | 7115ad8675f29c8b0f15238926b832854fb5f81a | |
| parent | 614a809c414bba53472ac4de857d74ceee4a1efa (diff) | |
| download | freebsd-ports-gnome-b1b773fd92d7036a93cfbebdeb7a589085aa2759.tar.gz freebsd-ports-gnome-b1b773fd92d7036a93cfbebdeb7a589085aa2759.tar.zst freebsd-ports-gnome-b1b773fd92d7036a93cfbebdeb7a589085aa2759.zip | |
Something funny is going on with the mailing list mapping and
the perl construct "local($dir) = @_; " - perl warns about it, but
it doesn't seem to work if I directly assigned $dir....
| -rwxr-xr-x | CVSROOT/log_accum.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/CVSROOT/log_accum.pl b/CVSROOT/log_accum.pl index fa1aa1643a54..07c5da342369 100755 --- a/CVSROOT/log_accum.pl +++ b/CVSROOT/log_accum.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# $Id: log_accum.pl,v 1.44 1995/11/02 09:10:23 peter Exp $ +# $Id: log_accum.pl,v 1.15 1995/11/27 08:28:42 peter Exp $ # # Perl filter to handle the log messages from the checkin of files in # a directory. This script will group the lists of files by log @@ -241,8 +241,7 @@ sub build_header { # !!! Mailing-list and history file mappings here !!! sub mlist_map { - local($dir); - $dir = @_; # perl warns unless we do this.... + local($dir) = @_; # perl warns about this.... return 'cvs-CVSROOT' if($dir =~ /^CVSROOT/); return 'cvs-ports' if($dir =~ /^ports/); |