summaryrefslogtreecommitdiff
path: root/ext
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 /ext
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 'ext')
-rw-r--r--ext/ByteLoader/bytecode.h2
-rw-r--r--ext/Thread/Thread.xs1
2 files changed, 0 insertions, 3 deletions
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h
index 7ce3e07280..e7ac6c8efd 100644
--- a/ext/ByteLoader/bytecode.h
+++ b/ext/ByteLoader/bytecode.h
@@ -182,8 +182,6 @@ typedef IV IV64;
ENTER; \
SAVECOPFILE(&PL_compiling); \
SAVECOPLINE(&PL_compiling); \
- save_svref(&PL_rs); \
- sv_setsv(PL_rs, PL_nrs); \
if (!PL_beginav) \
PL_beginav = newAV(); \
av_push(PL_beginav, cv); \
diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs
index c008160538..b76c0be18b 100644
--- a/ext/Thread/Thread.xs
+++ b/ext/Thread/Thread.xs
@@ -174,7 +174,6 @@ threadstart(void *arg)
SvREFCNT_dec(PL_ofs_sv);
SvREFCNT_dec(PL_rs);
- SvREFCNT_dec(PL_nrs);
SvREFCNT_dec(PL_statname);
SvREFCNT_dec(PL_errors);
Safefree(PL_screamfirst);