One-line change for Perl 5.8.8 compatibility
This commit is contained in:
parent
d8571451d2
commit
96f8732447
2
Butts.pm
2
Butts.pm
|
@ -194,7 +194,7 @@ C<STDERR>.
|
||||||
my ($self, $string) = @_;
|
my ($self, $string) = @_;
|
||||||
|
|
||||||
my ($leading_ws, $remainder) = ($string =~ m/^(\s*)(.*)$/s);
|
my ($leading_ws, $remainder) = ($string =~ m/^(\s*)(.*)$/s);
|
||||||
$leading_ws //= '';
|
$leading_ws = defined $leading_ws ? $leading_ws : '';
|
||||||
|
|
||||||
my @all_split = split(/(\s+)/, $remainder);
|
my @all_split = split(/(\s+)/, $remainder);
|
||||||
my (@words, @ws);
|
my (@words, @ws);
|
||||||
|
|
Loading…
Reference in New Issue