One-line change for Perl 5.8.8 compatibility

2010-08-05 16:07:42 +00:00 · 2010-08-05 16:07:42 +00:00 · 96f8732447
parent d8571451d2
commit 96f8732447
1 changed files with 1 additions and 1 deletions
--- a/Butts.pm
+++ b/Butts.pm
@ -194,7 +194,7 @@ C<STDERR>.
        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);