diff options
| author | Zefram <zefram@fysh.org> | 2011-09-09 23:27:16 +0100 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2011-09-09 23:30:02 +0100 |
| commit | e1dccc0d34a90e3511bfed596be9d78128ca7ee7 (patch) | |
| tree | 1e72ad2098f66ac1c59debfc46c00d1013fc0a9f /dump.c | |
| parent | 0b31f5359876e6c0b203006714db218d7b441cd1 (diff) | |
| download | perl-e1dccc0d34a90e3511bfed596be9d78128ca7ee7.tar.gz | |
remove index offsetting ($[)
$[ remains as a variable. It no longer has compile-time magic.
At runtime, it always reads as zero, accepts a write of zero, but dies
on writing any other value.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -821,7 +821,6 @@ const struct flag_to_name op_const_names[] = { {OPpCONST_SHORTCIRCUIT, ",SHORTCIRCUIT"}, {OPpCONST_STRICT, ",STRICT"}, {OPpCONST_ENTERED, ",ENTERED"}, - {OPpCONST_ARYBASE, ",ARYBASE"}, {OPpCONST_BARE, ",BARE"}, {OPpCONST_WARNING, ",WARNING"} }; @@ -2990,8 +2989,6 @@ Perl_do_op_xmldump(pTHX_ I32 level, PerlIO *file, const OP *o) sv_catpv(tmpsv, ",BARE"); if (o->op_private & OPpCONST_STRICT) sv_catpv(tmpsv, ",STRICT"); - if (o->op_private & OPpCONST_ARYBASE) - sv_catpv(tmpsv, ",ARYBASE"); if (o->op_private & OPpCONST_WARNING) sv_catpv(tmpsv, ",WARNING"); if (o->op_private & OPpCONST_ENTERED) |