Change 13821 by jhi@alpha on 2001/12/20 20:53:42
Subject: [PATCH B::Dpparse] minor qr// fix
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Thu, 20 Dec 2001 22:53:34 +0100
Message-ID: <20011220225334.A735@rafael>
Affected files ...
.... //depot/perl/ext/B/B/Deparse.pm#98 edit
Differences ...
==== //depot/perl/ext/B/B/Deparse.pm#98 (text) ====
Index: perl/ext/B/B/Deparse.pm
--- perl/ext/B/B/Deparse.pm.~1~ Thu Dec 20 14:00:05 2001
+++ perl/ext/B/B/Deparse.pm Thu Dec 20 14:00:05 2001
@@ -3158,10 +3158,11 @@
sub single_delim {
my($q, $default, $str) = @_;
return "$default$str$default" if $default and index($str, $default) == -1;
- my($succeed, $delim);
- ($succeed, $str) = balanced_delim($str);
- return "$q$str" if $succeed;
- for $delim ('/', '"', '#') {
+ if ($q ne 'qr') {
+ (my $succeed, $str) = balanced_delim($str);
+ return "$q$str" if $succeed;
+ }
+ for my $delim ('/', '"', '#') {
return "$q$delim" . $str . $delim if index($str, $delim) == -1;
}
if ($default) {
End of Patch.
