summaryrefslogtreecommitdiff
path: root/lang/perl5.6/files
diff options
context:
space:
mode:
authorAnton Berezin <tobez@FreeBSD.org>2002-10-29 15:47:13 +0000
committerAnton Berezin <tobez@FreeBSD.org>2002-10-29 15:47:13 +0000
commit011d6642799945a55d2052bb8734053eb0475f24 (patch)
tree7f5afeb41aef09697ac4d2c486e40ba4fd8e4ef5 /lang/perl5.6/files
parentPatch to build with new bison 1.75. (diff)
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 '')
-rw-r--r--lang/perl5.6/files/patch-mg.c11
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 000000000000..c9ef2a1322b0
--- /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 */