diff options
Diffstat (limited to '')
| -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 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 */ |