diff options
| -rw-r--r-- | lang/perl5.6/Makefile | 2 | ||||
| -rw-r--r-- | lang/perl5.6/files/patch-mg.c | 11 | ||||
| -rw-r--r-- | lang/perl5/Makefile | 2 | ||||
| -rw-r--r-- | lang/perl5/files/patch-mg.c | 11 |
4 files changed, 24 insertions, 2 deletions
diff --git a/lang/perl5.6/Makefile b/lang/perl5.6/Makefile index d88341c43852..e7ec4e3e6fb4 100644 --- a/lang/perl5.6/Makefile +++ b/lang/perl5.6/Makefile @@ -7,7 +7,7 @@ PORTNAME= perl PORTVERSION= ${PERL_VER} -PORTREVISION= 8 +PORTREVISION= 9 CATEGORIES= lang devel perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} \ ${MASTER_SITE_LOCAL:S/$/:local/} 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 */ diff --git a/lang/perl5/Makefile b/lang/perl5/Makefile index d88341c43852..e7ec4e3e6fb4 100644 --- a/lang/perl5/Makefile +++ b/lang/perl5/Makefile @@ -7,7 +7,7 @@ PORTNAME= perl PORTVERSION= ${PERL_VER} -PORTREVISION= 8 +PORTREVISION= 9 CATEGORIES= lang devel perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} \ ${MASTER_SITE_LOCAL:S/$/:local/} diff --git a/lang/perl5/files/patch-mg.c b/lang/perl5/files/patch-mg.c new file mode 100644 index 000000000000..c9ef2a1322b0 --- /dev/null +++ b/lang/perl5/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 */ |