From 8003ba152f15aa82aaadd76fcd6b669cc0cc9981 Mon Sep 17 00:00:00 2001 From: Baptiste Daroussin Date: Mon, 1 Sep 2014 21:25:59 +0000 Subject: Remove non staged ports without pending PR from ma* --- mail/majordomo/files/patch-archive2.pl | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 mail/majordomo/files/patch-archive2.pl (limited to 'mail/majordomo/files/patch-archive2.pl') diff --git a/mail/majordomo/files/patch-archive2.pl b/mail/majordomo/files/patch-archive2.pl deleted file mode 100644 index 4932066dbecb..000000000000 --- a/mail/majordomo/files/patch-archive2.pl +++ /dev/null @@ -1,29 +0,0 @@ ---- ./archive2.pl.orig 2013-11-24 18:52:35.932149986 +0400 -+++ ./archive2.pl 2013-11-24 18:49:56.000000000 +0400 -@@ -74,7 +74,7 @@ - - # All these should be in the standard PERL library - unshift(@INC, $homedir); --require "ctime.pl"; # To get MoY definitions for month abbrevs -+use POSIX qw(ctime); - require "majordomo_version.pl"; # What version of Majordomo is this? - require "majordomo.pl"; # all sorts of general-purpose Majordomo subs - require "shlock.pl"; # NNTP-style file locking -@@ -85,7 +85,7 @@ - - # Here's where the fun begins... - --require "getopts.pl"; -+use Getopt::Std; - - $m = 1; - foreach (@ctime'MoY) { -@@ -94,7 +94,7 @@ - - $usage = "Usage: $0 -f {-u|-a} [-d|-D|-m|-M|-y|-Y] [file ...]"; - --&Getopts("f:uadDmMyY") || die("$usage\nStopped"); -+getopts("f:uadDmMyY") || die("$usage\nStopped"); - - if (!defined($opt_f)) { - print STDERR "'-f ' required\n$usage\n"; -- cgit v1.2.3