ports/mail/majordomo/files/patch-contrib__sequencer
Andrej Zverev c855aaa590 - Add patches to allow run under perl 5.16
PR:		ports/183863
Submitted by:	wolfgang@lyxys.ka.sub.org
With hat:	perl@
2013-11-24 15:03:51 +00:00

18 lines
668 B
Text

--- ./contrib/sequencer.orig 2013-11-24 18:53:58.067356022 +0400
+++ ./contrib/sequencer 2013-11-24 18:48:32.000000000 +0400
@@ -59,13 +59,13 @@
chdir($homedir) || die("Can't chdir(\"$homedir\"): $!");
unshift(@INC, $homedir);
+use Getopt::Std;
require "majordomo.pl";
require "majordomo_version.pl";
-require "getopts.pl";
require "config_parse.pl";
require "shlock.pl";
-&Getopts("Aa:df:h:I:l:m:M:nNp:Rr:s") || die("sequencer: Getopts() failed: $!");
+getopts("Aa:df:h:I:l:m:M:nNp:Rr:s") || die("sequencer: Getopts() failed: $!");
if (! defined($opt_l) || ! defined($opt_h)) {
die("sequencer: must specify both '-l list' and '-h host' arguments");