Encode 1.76 Released

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

diff --git a/universal.c b/universal.c
index 486b366..4a879e9 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -192,7 +192,6 @@ Perl_boot_core_UNIVERSAL(pTHX)
        sv_inc(sv);
        SvSETMAGIC(sv);
        /* Make it findable via fetchmethod */
-       newXS("version::()", NULL, file);
        newXS("version::new", XS_version_new, file);
        newXS("version::(\"\"", XS_version_stringify, file);
        newXS("version::stringify", XS_version_stringify, file);
@@ -414,7 +413,7 @@ XS(XS_version_stringify)
                lobj = tmp;
         }
         else
-                croak("lobj is not of type version");
+                Perl_croak(aTHX_ "lobj is not of type version");
 
 {
     SV  *vs = NEWSV(92,5);
@@ -444,7 +443,7 @@ XS(XS_version_numify)
                lobj = tmp;
         }
         else
-                croak("lobj is not of type version");
+                Perl_croak(aTHX_ "lobj is not of type version");
 
 {
     SV  *vs = NEWSV(92,5);
@@ -471,7 +470,7 @@ XS(XS_version_vcmp)
                lobj = tmp;
         }
         else
-                croak("lobj is not of type version");
+                Perl_croak(aTHX_ "lobj is not of type version");
 
 {
     SV *rs;
@@ -516,7 +515,7 @@ XS(XS_version_boolean)
                lobj = tmp;
         }
         else
-                croak("lobj is not of type version");
+                Perl_croak(aTHX_ "lobj is not of type version");
 
 {
     SV *rs;
@@ -542,10 +541,10 @@ XS(XS_version_noop)
                lobj = tmp;
         }
         else
-                croak("lobj is not of type version");
+                Perl_croak(aTHX_ "lobj is not of type version");
 
 {
-    croak("operation not supported with version object");
+    Perl_croak(aTHX_ "operation not supported with version object");
 }
 
     }