$NetBSD: patch-an,v 1.2 2010/10/30 23:48:36 spz Exp $

bring up to perl 5.12 standard (this is old code)

--- majordomo.pl.orig	2000-01-07 12:32:04.000000000 +0000
+++ majordomo.pl
@@ -44,7 +44,7 @@ $DEBUG = $main'DEBUG;
 
 sub main'ParseMailHeader  ## Public
 {
-    local($save1, $save2) = ($*, $/);
+    local($save) = ($/);
     local($FH, *array) =  @_;
     local ($keyw, $val);
 
@@ -54,7 +54,7 @@ sub main'ParseMailHeader  ## Public
     local($package) = caller;
     $FH =~ s/^[^':]+$/$package'$&/;
 
-    ($*, $/) = (1, '');
+    $/ = '';
     $array = $_ = <$FH>;
     s/\n\s+/ /g;
        
@@ -69,7 +69,7 @@ sub main'ParseMailHeader  ## Public
 	    $array{$keyw} = $val;
 	}
     }
-    ($*, $/) = ($save1, $save2); 
+    $/ = $save; 
 }
 
 
@@ -95,14 +95,14 @@ sub main'ParseAddrs {
     local($_) = shift;
     1 while s/\([^\(\)]*\)//g; 		# strip comments
     1 while s/"[^"]*"\s//g;		# strip comments"
-    split(/,/);				# split into parts
-    foreach (@_) {
+    my @parts = split(/,/);		# split into parts
+    foreach (@parts) {
 	1 while s/.*<(.*)>.*/$1/;
 	s/^\s+//;
 	s/\s+$//;
     }
 
-    @_;
+    @parts;
 }
 
 # Check to see if a list is valid.  If it is, return the validated list