pkg/40282: [PATCH] bug fix in devel/p5-Class-MethodMaker

[rehsack%web.de@localhost]

>Number:         40282
>Category:       pkg
>Synopsis:       [PATCH] bug fix in devel/p5-Class-MethodMaker
>Confidential:   no
>Severity:       critical
>Priority:       high
>Responsible:    pkg-manager
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Sun Dec 28 13:05:00 +0000 2008
>Originator:     Jens Rehsack
>Release:        none
>Organization:
Bayer Business Services
>Environment:
FreeBSD7-STABLE, AIX 5.3 TL8, RHEL 4.5
>Description:
With the update of devel/p5-Class-MethodMaker to 2.13 a critical bug is 
introduced which may prevent this perl module to work. I don't know how quick 
the module author will fix the problem (see 
http://rt.cpan.org/Ticket/Display.html?id=41994), but I strongly recommend to 
include this fix into pkgsrc-2008Q4.
>How-To-Repeat:

>Fix:
Index: distinfo
===================================================================
RCS file: /cvsroot/pkgsrc/devel/p5-Class-MethodMaker/distinfo,v
retrieving revision 1.9
diff -u -u -r1.9 distinfo
--- distinfo    19 Dec 2008 17:45:36 -0000      1.9
+++ distinfo    28 Dec 2008 13:01:37 -0000
@@ -3,3 +3,4 @@
 SHA1 (Class-MethodMaker-2.13.tar.gz) = 229765c45e2668ae56fa932bf128969a79d18cfe
 RMD160 (Class-MethodMaker-2.13.tar.gz) = 
65ed468e44adbe7aee21f8a8217f31b187cd4746
 Size (Class-MethodMaker-2.13.tar.gz) = 89006 bytes
+SHA1 (patch-aa) = 1ba9cbebcd32f0b5b46353f318469bb324996057
Index: patches/patch-aa
===================================================================
--- /dev/null   2008-12-28 12:55:01.000000000 +0000
+++ patches/patch-aa    2008-12-27 15:36:12.000000000 +0000
@@ -0,0 +1,11 @@
+--- MethodMaker.xs     2008-12-27 16:36:06.000000000 +0100
++++ MethodMaker.xs.orig        2008-12-27 16:31:09.000000000 +0100
+@@ -7,7 +7,7 @@
+ int
+ set_sub_name(SV *sub, char *pname, char *subname, char *stashname)
+   INIT:
+-    if (!SvTRUE(ST(0)) || !SvTRUE(ST(1)) || !SvTRUE(ST(2)) || !SvTRUE(ST(3)))
++    if (!SvTRUE(ST(1)) || !SvTRUE(ST(2)) || !SvTRUE(ST(3)) || !SvTRUE(ST(4)))
+       XSRETURN_UNDEF;
+   CODE:
+     CvGV((GV*)SvRV(sub)) = gv_fetchpv(stashname, TRUE, SVt_PV);