This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
More portability nits by Jarkko
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 16 Jun 2007 06:10:19 +0000 (06:10 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 16 Jun 2007 06:10:19 +0000 (06:10 +0000)
p4raw-id: //depot/perl@31396

ext/util/make_ext
gv.h
hv.c

index cd1db5a..c856bbf 100644 (file)
@@ -120,7 +120,7 @@ nonxs)      makeargs="";
 esac
 
 if test ! -f $makefile ; then
-       test -f Makefile.PL && ../$depth/miniperl -I../$depth/lib Makefile.PL INSTALLDIRS=perl PERL_CORE=1 $passthru
+       test -f Makefile.PL && $run ../$depth/miniperl -I../$depth/lib Makefile.PL INSTALLDIRS=perl PERL_CORE=1 $passthru
 fi
 if test ! -f $makefile ; then
        echo "Warning: No Makefile!"
diff --git a/gv.h b/gv.h
index 8494137..66dedb7 100644 (file)
--- a/gv.h
+++ b/gv.h
@@ -88,7 +88,7 @@ Return the SV from the GV.
 #endif
 
 #define GvREFCNT(gv)   (GvGP(gv)->gp_refcnt)
-#define GvIO(gv)       ((gv) && SvTYPE((SV*)gv) == SVt_PVGV && GvGP(gv) ? GvIOp(gv) : 0)
+#define GvIO(gv)       ((gv) && SvTYPE((SV*)gv) == SVt_PVGV && GvGP(gv) ? GvIOp(gv) : NULL)
 #define GvIOp(gv)      (GvGP(gv)->gp_io)
 #define GvIOn(gv)      (GvIO(gv) ? GvIOp(gv) : GvIOp(gv_IOadd(gv)))
 
diff --git a/hv.c b/hv.c
index 032f4c2..cf0f3f4 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -2011,7 +2011,7 @@ Perl_hv_name_set(pTHX_ HV *hv, const char *name, U32 len, U32 flags)
        iter = hv_auxinit(hv);
     }
     PERL_HASH(hash, name, len);
-    iter->xhv_name = name ? share_hek(name, len, hash) : 0;
+    iter->xhv_name = name ? share_hek(name, len, hash) : NULL;
 }
 
 AV **