Make works with perl5.16

Feature safe: yes
Submitted by:	Cy Schubert <Cy.Schubert@komquats.com>
This commit is contained in:
Munechika SUMIKAWA 2012-10-21 12:12:54 +00:00
parent fd888aae84
commit dece71c9bc
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=306230
2 changed files with 19 additions and 1 deletions

View file

@ -7,7 +7,7 @@
PORTNAME= racoon2
PORTVERSION= 20100526a
PORTREVISION= 2
PORTREVISION= 3
CATEGORIES= security net ipv6
MASTER_SITES= ftp://ftp.racoon2.wide.ad.jp/pub/racoon2/
EXTRACT_SUFX= .tgz

View file

@ -0,0 +1,18 @@
--- pskgen/pskgen.in.orig 2005-09-15 23:52:20.000000000 -0700
+++ pskgen/pskgen.in 2012-10-19 22:21:12.364329713 -0700
@@ -59,8 +59,13 @@
exit 0;
}
-require 'getopts.pl';
-do Getopts('rs:o:di:he:d');
+if ($] > 5.014002) {
+ use Getopt::Std;
+ getopts('rs:o:di:he:d');
+} else {
+ require 'getopts.pl';
+ do Getopts('rs:o:di:he:d');
+}
$output = '-';
$output = $opt_o if ($opt_o);