Document limitations in PUSHi et al macros and add new mPUSHi et al macros

[perl5.git] / universal.c

diff --git a/universal.c b/universal.c
index 78d30cb..6b2214d 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -374,10 +374,10 @@ XS(XS_UNIVERSAL_VERSION)
                    vnumify(req),vnormal(req),vnumify(sv),vnormal(sv));
     }
 
-    if (sv == (SV*)&PL_sv_undef) {
-       ST(0) = sv;
-    } else {
+    if ( sv_derived_from(sv, "version") ) {
        ST(0) = vnumify(sv);
+    } else {
+       ST(0) = sv;
     }
 
     XSRETURN(1);