diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-26 22:05:40 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-26 22:05:40 -0700 |
| commit | cb85b2dba9dd71becf505fd4190513a7648f1ff8 (patch) | |
| tree | 471b0b86712ece64a1be8d1fa2d001083712a001 /ext/B | |
| parent | bfce6a3ec7ddae6ac64d6a35dab18471c421ad67 (diff) | |
| download | perl-cb85b2dba9dd71becf505fd4190513a7648f1ff8.tar.gz | |
Add OPpCOREARGS_SCALARMOD flag
pp_coreargs will use this to distinguish between the \$ and \[$@%*]
prototypes.
Diffstat (limited to 'ext/B')
| -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 2b806b7676..45e7ba95c3 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -661,7 +661,7 @@ if ($] >= 5.009) { for ("mapwhile", "mapstart", "grepwhile", "grepstart"); } $priv{$_}{128} = '+1' for qw "caller wantarray"; -@{$priv{coreargs}}{1,2,128} = ('DREF1','DREF2','MARK'); +@{$priv{coreargs}}{1,2,64,128} = ('DREF1','DREF2','$MOD','MARK'); our %hints; # used to display each COP's op_hints values |