$NetBSD: patch-aa,v 1.1 2008/12/28 21:14:14 he Exp $

--- MethodMaker.xs.orig	2008-12-28 22:06:57.000000000 +0100
+++ MethodMaker.xs
@@ -7,7 +7,7 @@ MODULE = Class::MethodMaker PACKAGE = Cl
 int
 set_sub_name(SV *sub, char *pname, char *subname, char *stashname)
   INIT:
-    if (!SvTRUE(ST(1)) || !SvTRUE(ST(2)) || !SvTRUE(ST(3)) || !SvTRUE(ST(4)))
+    if (!SvTRUE(ST(0)) || !SvTRUE(ST(1)) || !SvTRUE(ST(2)) || !SvTRUE(ST(3)))
       XSRETURN_UNDEF;
   CODE:
     CvGV((GV*)SvRV(sub)) = gv_fetchpv(stashname, TRUE, SVt_PV);
