diff options
author | Hugo van der Sanden <hv@crypt.org> | 2001-09-09 19:41:54 +0100 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-15 12:33:49 +0000 |
commit | 8bfdd7d95bcb290ba639e2c88c5d4370ab8fcfc0 (patch) | |
tree | 73ff47381401919d6d90daccf674fc93918f21a7 /ext | |
parent | c366adb4d8e96138e96920f4a327296016a696e0 (diff) | |
download | perl-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.h | 2 | ||||
-rw-r--r-- | ext/Thread/Thread.xs | 1 |
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); |