From b1b773fd92d7036a93cfbebdeb7a589085aa2759 Mon Sep 17 00:00:00 2001
From: peter <peter@FreeBSD.org>
Date: Mon, 27 Nov 1995 08:59:34 +0000
Subject: 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....

---
 CVSROOT/log_accum.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'CVSROOT/log_accum.pl')

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/);
-- 
cgit