summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2001-09-09 19:41:54 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2001-09-15 12:33:49 +0000
commit8bfdd7d95bcb290ba639e2c88c5d4370ab8fcfc0 (patch)
tree73ff47381401919d6d90daccf674fc93918f21a7 /op.c
parentc366adb4d8e96138e96920f4a327296016a696e0 (diff)
downloadperl-8bfdd7d95bcb290ba639e2c88c5d4370ab8fcfc0.tar.gz
Re: [ID 20010815.012] Unfortunate interaction between -0 cmd line arg & (??{CODE}) regex
Message-Id: <200109091741.f89HfsM18534@crypt.compulink.co.uk> p4raw-id: //depot/perl@12027
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/op.c b/op.c
index bd3c550d08..1c7eb15684 100644
--- a/op.c
+++ b/op.c
@@ -4957,8 +4957,6 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
ENTER;
SAVECOPFILE(&PL_compiling);
SAVECOPLINE(&PL_compiling);
- save_svref(&PL_rs);
- sv_setsv(PL_rs, PL_nrs);
if (!PL_beginav)
PL_beginav = newAV();