fix unset's arg handling.

t/cmd_global.t now runs to completion.
partcl · Dec 15, 2009 · 5c9d4dd · 5c9d4dd
1 parent 71f4a01
commit 5c9d4dd
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/src/Partcl/commands/main.pm b/src/Partcl/commands/main.pm
@@ -456,11 +456,13 @@ our sub time(*@args) {
     return $ms_per ~ ' microseconds per iteration';
 }
 
-our sub unset($varname) {
-    Q:PIR {
-        $P1 = find_lex '$varname'
-        $P2 = find_dynamic_lex '%LEXPAD'
-        delete $P2[$P1]
+our sub unset(*@args) {
+    for @args -> $varname {
+        Q:PIR {
+            $P1 = find_lex '$varname'
+            $P2 = find_dynamic_lex '%LEXPAD'
+            delete $P2[$P1]
+        }
     }
 }