From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 27 Sep 2005 11:06:23 +0000 (+0000)
Subject: OPpRUNTIME can be set on OP_QR too
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7abc42fc27f1b75a4ef2485a7c3d59e55a86a04a;p=p5sagit%2Fp5-mst-13.2.git

OPpRUNTIME can be set on OP_QR too

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

diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm
index 1be4009..c84578e 100644
--- a/ext/B/B/Concise.pm
+++ b/ext/B/B/Concise.pm
@@ -559,7 +559,7 @@ $priv{$_}{64} = "REFC" for ("leave", "leavesub", "leavesublv", "leavewrite");
 $priv{"aassign"}{64} = "COMMON";
 $priv{"aassign"}{32} = "PHASH" if $] < 5.009;
 $priv{"sassign"}{64} = "BKWARD";
-$priv{$_}{64} = "RTIME" for ("match", "subst", "substcont");
+$priv{$_}{64} = "RTIME" for ("match", "subst", "substcont", "qr");
 @{$priv{"trans"}}{1,2,4,8,16,64} = ("<UTF", ">UTF", "IDENT", "SQUASH", "DEL",
 				    "COMPL", "GROWS");
 $priv{"repeat"}{64} = "DOLIST";