From: Andrew (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-33906-106339.17.
5527961922343@perl.org>
p4raw-id: //depot/perl@23872
sub invalid { die "/$_[0]/: invalid escape '\\$_[1]'"}
- my %rules = ( '\\' => '\\',
+ my %rules = ( '\\' => '\\\\',
'Y|' => qr/(?=\S)(?<!\S)|(?!\S)(?<=\S)/ );
sub convert {
my $re = shift;