operation on `PL_na' may be undefined

Message-ID: <20021210195917.GJ288@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@18341

diff --git a/universal.c b/universal.c
index 533d843..9764ee4 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -338,8 +338,8 @@ XS(XS_UNIVERSAL_VERSION)
            req = new_version(req);
 
        if ( vcmp( SvRV(req), SvRV(sv) ) > 0 )
-           Perl_croak(aTHX_ "%s version %s required--this is only version %s",
-               HvNAME(pkg), SvPV(req,PL_na), SvPV(sv,PL_na));
+           Perl_croak(aTHX_ "%s version %_ required--this is only version %_",
+               HvNAME(pkg), req, sv);
     }
 
     ST(0) = sv;