From b47c4431974de7ad0820e4d84da48d468e06ee16 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 11 Sep 2013 13:17:59 -0700 Subject: [PATCH] vxs.inc: Disallow multiple args to XS_version_normal Also rename the argument. This is part of bringing perl and CPAN into synch. --- vxs.inc | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/vxs.inc b/vxs.inc index b239fad..6f321f1 100644 --- a/vxs.inc +++ b/vxs.inc @@ -274,19 +274,19 @@ XS(XS_version_normal) { dVAR; dXSARGS; - if (items < 1) - croak_xs_usage(cv, "lobj, ..."); + if (items != 1) + croak_xs_usage(cv, "ver, ..."); SP -= items; { - SV * lobj = ST(0); + SV * ver = ST(0); - if (sv_isobject(lobj) && sv_derived_from(lobj, "version")) { - lobj = SvRV(lobj); + if (sv_isobject(ver) && sv_derived_from(ver, "version")) { + ver = SvRV(ver); } else - Perl_croak(aTHX_ "lobj is not of type version"); + Perl_croak(aTHX_ "ver is not of type version"); - mPUSHs(vnormal(lobj)); + mPUSHs(vnormal(ver)); PUTBACK; return; -- 1.8.3.1