From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 20 Dec 2001 22:53:34 +0000 (+0100)
Subject: minor qr// fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8347ad866983eb3964e8afa626ea678bb02b5b4d;p=p5sagit%2Fp5-mst-13.2.git

minor qr// fix
Message-ID: <20011220225334.A735@rafael>

p4raw-id: //depot/perl@13821
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index fd88191..7bf95df 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -3158,10 +3158,11 @@ sub balanced_delim {
 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) {