pkg/43974: majordomo's resend does not work with perl 5.12.

[kovert%omniscient.com@localhost]

>Number:         43974
>Category:       pkg
>Synopsis:       majordomo's resend does not work with perl 5.12.
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    pkg-manager
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Fri Oct 15 15:55:00 +0000 2010
>Originator:     Todd Kover
>Release:        NetBSD 5.1_RC4
>Organization:
Omniscient Technologies
>Environment:
        
        
System: NetBSD tarvalon.omniscient.com 5.1_RC4 NetBSD 5.1_RC4 
(OMNISCIENT_DOM0-$Revision: 1.5 $) #0: Mon Oct 4 02:37:38 UTC 2010 
kovert%motai.omniscient.com@localhost:/usr/obj/5.0-stable/amd64/usr/src/os/NetBSD-5.0-branch/src/sys/arch/amd64/compile/OMNISCIENT_DOM0
 amd64
Architecture: x86_64
Machine: amd64
>Description:
        Running mail through resend causes it to silently get tossed into
        the bit bucket.

        majordomo's resend relies on split returning things into @_ which
        went away somewhere between perl 5.10 and perl 5.12.
>How-To-Repeat:
        resend -d -l list list-name < msg

        watch it not get resent.
        
>Fix:

this patch:

$NetBSD$

--- majordomo.pl        2000-01-07 12:32:04.000000000 +0000
+++ /tmp/majordomo.pl
@@ -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 @x = split(/,/);                                # split into parts
+    foreach (@x) {
        1 while s/.*<(.*)>.*/$1/;
        s/^\s+//;
        s/\s+$//;
     }
 
-    @_;
+    @x;
 }
 
 # Check to see if a list is valid.  If it is, return the validated list

>Unformatted: