diff --git a/Butts.pm b/Butts.pm index b1325d0..05abc7c 100644 --- a/Butts.pm +++ b/Butts.pm @@ -194,7 +194,7 @@ C. my ($self, $string) = @_; my ($leading_ws, $remainder) = ($string =~ m/^(\s*)(.*)$/s); - $leading_ws //= ''; + $leading_ws = defined $leading_ws ? $leading_ws : ''; my @all_split = split(/(\s+)/, $remainder); my (@words, @ws);