Fix shortcomings in the previous trim-leading and trim-trailing imple…

…mentations.
rakudo · Feb 16, 2010 · f483b59 · f483b59
1 parent ee1e518
commit f483b59
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/core/Any-str.pm b/src/core/Any-str.pm
@@ -183,7 +183,7 @@ augment class Any {
 
     # Not yet spec'd, I expect it will be renamed
     multi method trim-leading() is export {
-        if self ~~ /^\s*(\S.*)$/ {
+        if self ~~ /^\s*:(.*)$/ {
             ~$/[0];
         } else {
             self;
@@ -194,7 +194,10 @@ augment class Any {
     multi method trim-trailing() is export {
         if self ~~ /^(.*\S)\s*$/ {
             ~$/[0];
-        } else {
+        } elsif self ~~ /^\s*$/ {
+            "";
+        }
+        else {
             self;
         }
     }