add basic args check to [string]

partcl · Nov 30, 2009 · 552913c · 552913c
1 parent 79d9ee8
commit 552913c
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/PmTcl/commands/string.pm b/src/PmTcl/commands/string.pm
@@ -1,4 +1,9 @@
-our sub string($cmd, *@args) {
+our sub string(*@args) {
+    if +@args <1 {
+        error('wrong # args: should be "string subcommand ?argument ...?"');
+    }
+    my $cmd := @args.shift();
+
     if $cmd eq 'toupper' {
         return pir::upcase(@args[0]); 
     } elsif $cmd eq 'compare' {
@@ -12,6 +17,8 @@ our sub string($cmd, *@args) {
         } else {
             return 1;
         } 
+    } else {
+        return 'XXX';
     }
 }