X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pad.c;h=ea2969d576182754f0343c8b4e844971efb6ddf1;hb=6d7fb585cd8ad83f4523191641999603aa48eb76;hp=df1b8f4175cc750ea008d2595d87964272ca73fc;hpb=0565a181ab920bd3cc76f2ab45d62768abfcaf8d;p=p5sagit%2Fp5-mst-13.2.git diff --git a/pad.c b/pad.c index df1b8f4..ea2969d 100644 --- a/pad.c +++ b/pad.c @@ -297,7 +297,7 @@ Perl_pad_undef(pTHX_ CV* cv) if (!sv) continue; if (sv == (SV*)PL_comppad_name) - PL_comppad_name = Nullav; + PL_comppad_name = NULL; else if (sv == (SV*)PL_comppad) { PL_comppad = Null(PAD*); PL_curpad = Null(SV**); @@ -827,9 +827,9 @@ S_pad_findlex(pTHX_ const char *name, const CV* cv, U32 seq, int warn, new_offset = pad_add_name( SvPVX_const(*out_name_sv), (SvFLAGS(*out_name_sv) & SVpad_TYPED) - ? SvSTASH(*out_name_sv) : Nullhv, + ? SvSTASH(*out_name_sv) : NULL, (SvFLAGS(*out_name_sv) & SVpad_OUR) - ? GvSTASH(*out_name_sv) : Nullhv, + ? GvSTASH(*out_name_sv) : NULL, 1 /* fake */ ); @@ -862,7 +862,8 @@ S_pad_findlex(pTHX_ const char *name, const CV* cv, U32 seq, int warn, return new_offset; } - + +#ifdef DEBUGGING /* =for apidoc pad_sv @@ -897,7 +898,6 @@ Use the macro PAD_SETSV() rather than calling this function directly. =cut */ -#ifdef DEBUGGING void Perl_pad_setsv(pTHX_ PADOFFSET po, SV* sv) { @@ -1627,7 +1627,7 @@ Perl_pad_compname_type(pTHX_ const PADOFFSET po) if ( SvFLAGS(*av) & SVpad_TYPED ) { return SvSTASH(*av); } - return Nullhv; + return NULL; } /*