diff options
| author | tobez <tobez@FreeBSD.org> | 2002-10-29 15:47:13 +0000 |
|---|---|---|
| committer | tobez <tobez@FreeBSD.org> | 2002-10-29 15:47:13 +0000 |
| commit | 1159ed27664a342f330d641bf184ea82b7e65d01 (patch) | |
| tree | f18bef485230889cbc73f7adc0aa80eec36b4b8f /lang/perl5.6/files | |
| parent | 1e2420797f97a790878d553d5001c16ecb36a776 (diff) | |
| download | FreeBSD-ports-1159ed27664a342f330d641bf184ea82b7e65d01.zip FreeBSD-ports-1159ed27664a342f330d641bf184ea82b7e65d01.tar.gz | |
Fix a bug in perl 5.6.1 described in
http://archive.develooper.com/perl5-porters@perl.org/msg58812.html
with a patch from
http://archive.develooper.com/perl5-porters@perl.org/msg58819.html
While we normally do not fix non-FreeBSD problems with 3rd party
software, it is expected that perl 5.6.1 will be used widely for some
time to come, and the bug is bad enough to grant the inclusion of the
patch here.
Diffstat (limited to 'lang/perl5.6/files')
| -rw-r--r-- | lang/perl5.6/files/patch-mg.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lang/perl5.6/files/patch-mg.c b/lang/perl5.6/files/patch-mg.c new file mode 100644 index 0000000..c9ef2a1 --- /dev/null +++ b/lang/perl5.6/files/patch-mg.c @@ -0,0 +1,11 @@ +--- mg.c.orig Tue Oct 29 16:24:52 2002 ++++ mg.c Tue Oct 29 16:32:26 2002 +@@ -562,6 +562,8 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) + (void)SvOK_off(sv); + else if (PL_in_eval) + sv_setiv(sv, PL_in_eval & ~(EVAL_INREQUIRE)); ++ else ++ sv_setiv(sv, 0); + } + break; + case '\024': /* ^T */ |
