18 lines
389 B
Text
18 lines
389 B
Text
--- 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);
|
|
|