This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
OPpRUNTIME can be set on OP_QR too
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 27 Sep 2005 11:06:23 +0000 (11:06 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 27 Sep 2005 11:06:23 +0000 (11:06 +0000)
p4raw-id: //depot/perl@25617

ext/B/B/Concise.pm

index 1be4009..c84578e 100644 (file)
@@ -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{"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";
 @{$priv{"trans"}}{1,2,4,8,16,64} = ("<UTF", ">UTF", "IDENT", "SQUASH", "DEL",
                                    "COMPL", "GROWS");
 $priv{"repeat"}{64} = "DOLIST";