From db9126b073a3297d03ccb84cadb26b09fbaa08e6 Mon Sep 17 00:00:00 2001
From: knu <knu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 3 Nov 2002 19:05:33 +0000
Subject: * lib/getopts.rb: Do not choke on characters that cannot be used   in
 a variable name.  Replace them with `_'.  Define a hash named   $OPT for
 convenience.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3021 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 lib/getopts.rb | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'lib/getopts.rb')

diff --git a/lib/getopts.rb b/lib/getopts.rb
index b1cffd9ba0..34fb0d6442 100644
--- a/lib/getopts.rb
+++ b/lib/getopts.rb
@@ -105,11 +105,19 @@ def getopts(single_options, *options)
   #
   # set
   #
+  $OPT = {}
+
   boolopts.each do |opt, val|
-    eval "$OPT_#{opt} = val"
+    $OPT[opt] = val
+
+    sopt = opt.gsub(/[^A-Za-z0-9_]/, '_')
+    eval "$OPT_#{sopt} = val"
   end
   valopts.each do |opt, val|
-    eval "$OPT_#{opt} = val"
+    $OPT[opt] = val
+
+    sopt = opt.gsub(/[^A-Za-z0-9_]/, '_')
+    eval "$OPT_#{sopt} = val"
   end
 
   c
-- 
cgit v1.2.3