diff options
| author | John L. Allen <allen@gateway.grumman.com> | 1997-09-05 00:00:00 +0000 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-09-05 00:00:00 +0000 |
| commit | 29d4204f776e15312c0c98f12e65eab4d319cddc (patch) | |
| tree | 66258556eae32553c8d8e91362cb83db1fc1a6d9 /lib/getopt.pl | |
| parent | d3308daf9dca01364c4abacd44066e73a758e9a5 (diff) | |
| download | perl-29d4204f776e15312c0c98f12e65eab4d319cddc.tar.gz | |
Banishing eval from getopt.pl and Getopt/Std.pm
This is a minimal patch *adding no new features*.
I submitted a prior patch that reworded the pods and allowed -- to
terminate args, among other things, but it never made it
in. Perhaps this will.
p5p-msgid: Pine.SOL.3.91.970920154720.3683A@gateway
Diffstat (limited to 'lib/getopt.pl')
| -rw-r--r-- | lib/getopt.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/getopt.pl b/lib/getopt.pl index a6023c80bc..f871e41850 100644 --- a/lib/getopt.pl +++ b/lib/getopt.pl @@ -24,10 +24,10 @@ sub Getopt { shift(@ARGV); $rest = shift(@ARGV); } - eval "\$opt_$first = \$rest;"; + ${"opt_$first"} = $rest; } else { - eval "\$opt_$first = 1;"; + ${"opt_$first"} = 1; if ($rest ne '') { $ARGV[0] = "-$rest"; } |