X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=universal.c;h=75e6c5eae43f32a062a878100ce7b25e33946441;hb=8ff9412f9ef1dbdabee4f0993653e1446d7a88c8;hp=8b2044393b82bf202b0582cf4b3e300c7d25c070;hpb=0562c0e3630958db13a0e70db1b90c05d3fee158;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/universal.c b/universal.c
index 8b20443..75e6c5e 100644
--- a/universal.c
+++ b/universal.c
@@ -303,10 +303,9 @@ XS(XS_UNIVERSAL_VERSION)
 	    sv_setnv(req, n);
 	}
 
-	if (SvNV(req) > SvNV(sv)) {
+	if (SvNV(req) > SvNV(sv))
 	    Perl_croak(aTHX_ "%s version %s required--this is only version %s",
-		       HvNAME(pkg), SvPV_nolen(req), SvPV_nolen(sv,len));
-	}
+		       HvNAME(pkg), SvPV_nolen(req), SvPV_nolen(sv));
     }
 
 finish: