diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-02-21 19:50:14 +0200 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-02-25 14:04:03 +0000 |
| commit | 83b43d9236da9ea6e31fd2df2474f4d7f7220a85 (patch) | |
| tree | c714305243ad881b977e2feefafca87189030239 /op.c | |
| parent | 22e13caa16a0052ac27896caeb4c33581f86e239 (diff) | |
| download | perl-83b43d9236da9ea6e31fd2df2474f4d7f7220a85.tar.gz | |
[perl #20682] [fix] @- array not visible in s///
Message-ID: <20030221155014.GB793@ratsnest.hole>
p4raw-id: //depot/perl@18776
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2630,7 +2630,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, OP *repl) if (curop->op_type == OP_GV) { GV *gv = cGVOPx_gv(curop); repl_has_vars = 1; - if (strchr("&`'123456789+", *GvENAME(gv))) + if (strchr("&`'123456789+-", *GvENAME(gv))) break; } else if (curop->op_type == OP_RV2CV) |