Insure string is a string.

partcl · Nov 30, 2009 · d9e1e35 · d9e1e35
1 parent 04106f2
commit d9e1e35
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/PmTcl/commands/main.pm b/src/PmTcl/commands/main.pm
@@ -330,7 +330,7 @@ our sub split(*@args) {
         error('wrong # args: should be "split string ?splitChars?"')
     }
 
-    my $string     := @args[0];
+    my $string     := ~@args[0];
     my $splitChars := @args[1] // " \r\n\t";
 
     if $string eq '' {