diff options
| author | Steven Schubiger <schubiger@cpan.org> | 2006-02-03 17:24:49 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-02-03 16:03:01 +0000 |
| commit | a0714e2c8319bd04d1f7d262de652b6b5ec054f7 (patch) | |
| tree | d8689d10ef1bdbdd3c93c50a330fb6406d477995 /doop.c | |
| parent | 157e3fc8c802010d855ef1c01ff62a891bb5e20d (diff) | |
| download | perl-a0714e2c8319bd04d1f7d262de652b6b5ec054f7.tar.gz | |
Re: [PATCH] s/Null(gv|hv|sv)/NULL/g
Message-ID: <20060203152449.GI12591@accognoscere.homeunix.org>
Date: Fri, 3 Feb 2006 16:24:49 +0100
p4raw-id: //depot/perl@27065
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1034,7 +1034,7 @@ Perl_do_chomp(pTHX_ register SV *sv) STRLEN len; char *s; char *temp_buffer = NULL; - SV* svrecode = Nullsv; + SV* svrecode = NULL; if (RsSNARF(PL_rs)) return 0; @@ -1371,7 +1371,7 @@ Perl_do_kv(pTHX) if (PL_op->op_flags & OPf_MOD || LVRET) { /* lvalue */ dTARGET; /* make sure to clear its target here */ if (SvTYPE(TARG) == SVt_PVLV) - LvTARG(TARG) = Nullsv; + LvTARG(TARG) = NULL; PUSHs(TARG); } RETURN; @@ -1390,7 +1390,7 @@ Perl_do_kv(pTHX) if (PL_op->op_flags & OPf_MOD || LVRET) { /* lvalue */ if (SvTYPE(TARG) < SVt_PVLV) { sv_upgrade(TARG, SVt_PVLV); - sv_magic(TARG, Nullsv, PERL_MAGIC_nkeys, NULL, 0); + sv_magic(TARG, NULL, PERL_MAGIC_nkeys, NULL, 0); } LvTYPE(TARG) = 'k'; if (LvTARG(TARG) != (SV*)keys) { |