cpet/freebsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix a bug in perl 5.6.1 described in

Browse Source 
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.
This commit is contained in:
Anton Berezin 2002-10-29 15:47:13 +00:00
parent 9ecdaefc75
commit 011d664279
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=69108
4 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lang/perl5.6/Makefile
View File

@ -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/}

11
lang/perl5.6/files/patch-mg.c Normal file
View File

@ -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 */

2
lang/perl5/Makefile
View File

@ -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/}

11
lang/perl5/files/patch-mg.c Normal file
View File

@ -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 */