diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-27 11:06:23 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-27 11:06:23 +0000 |
| commit | 2dbb6637faf5b2c94ae21758731e6168a63d9601 (patch) | |
| tree | 5d2ed9e108090a7c4ff0d3df541daf1632c27d1b | |
| parent | ea21e18ffbd2a32f7778d6fc6387a4e0a019d357 (diff) | |
| download | perl-2dbb6637faf5b2c94ae21758731e6168a63d9601.tar.gz | |
OPpRUNTIME can be set on OP_QR too
p4raw-id: //depot/perl@25617
| -rw-r--r-- | ext/B/B/Concise.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 1be400971e..c84578e44c 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"; |