From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 18 Jun 2001 23:19:53 +0000 (+0000)
Subject: So there.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f6eb1a9681f0cdb7a59526670d656e4adf00188c;p=p5sagit%2Fp5-mst-13.2.git

So there.

p4raw-id: //depot/perl@10699
---

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: