Commit 02e0d986 authored by Juergen Nickelsen's avatar Juergen Nickelsen
Browse files

work around a 5.014 bug in split() re leading whitespace

parent 5a6abd52
......@@ -279,6 +279,7 @@ sub Bsplit_string {
if (is_nil($sep)) {
$re = ' '; # special case: white space with nonull
# read; see perlfunc manual on split
$string =~ s/^\s+//; # this one's needed for a Perl 5.014 bug
} else {
my $re_string = princs($sep);
$re = qr/$re_string/;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment