a9eecce2c2
(split doesn't return @_ anymore) Reported by Witek Handzlik on ports@ While here, remove dhartmei@ from MAINTAINER. ok sthen@ dcoppa@
24 lines
653 B
Plaintext
24 lines
653 B
Plaintext
$OpenBSD: patch-majordomo_pl,v 1.1 2011/02/02 20:15:48 landry Exp $
|
|
Make it work with perl 5.12
|
|
From pkgsrc pr43974
|
|
--- majordomo.pl.orig Wed Feb 2 13:32:15 2011
|
|
+++ majordomo.pl Wed Feb 2 13:32:39 2011
|
|
@@ -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
|