Initial VMS patches

[p5sagit/p5-mst-13.2.git] / lib / getopt.pl

diff --git a/lib/getopt.pl b/lib/getopt.pl
index a6023c8..f871e41 100644 (file)
--- 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";
            }