split() was creating null tokens if the string contained leading whit…

…espace. Using the new special syntax suppresses them.
drboone · Jan 7, 2010 · d896670 · d896670
1 parent 1723db8
commit d896670
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/MrShell.pm b/MrShell.pm
@@ -38,7 +38,7 @@ sub _process_space_delimited {
             $that = $rem;
 
         } else {
-            my ($tok, $rem) = split m/\s+/, $that, 2; 
+            my ($tok, $rem) = split ' ', $that, 2; 
 
             push @output, $tok;
             $that = $rem;