On Linux, don't compile with -DTHREADS_HAVE_PIDS if the

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

diff --git a/universal.c b/universal.c
index d4de858..6fdf8b9 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -199,7 +199,7 @@ Perl_sv_does(pTHX_ SV *sv, const char *name)
     if (sv_isobject(sv)) {
        classname = sv_reftype(SvRV(sv),TRUE);
     } else {
-       classname = SvPV(sv,PL_na);
+       classname = SvPV_nolen(sv);
     }
 
     if (strEQ(name,classname))
@@ -1243,8 +1243,8 @@ XS(XS_re_regnames_iterinit)
 {
     dVAR; 
     dXSARGS;
-    if (items != 0 )
-       Perl_croak(aTHX_ "Usage: %s(%s)", "re::regnames_iterinit");
+    if (items != 0)
+       Perl_croak(aTHX_ "Usage: re::regnames_iterinit()");
     PERL_UNUSED_VAR(cv); /* -W */
     PERL_UNUSED_VAR(ax); /* -Wall */
     SP -= items;