fix PTHREAD_ATFORK croaking too early, too often

[p5sagit/p5-mst-13.2.git] / universal.c

diff --git a/universal.c b/universal.c
index 8b20443..75e6c5e 100644 (file)
--- 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: