diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-04-18 14:09:25 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-04-19 09:55:51 +0000 |
| commit | b162af07ec759e1ba6b84569e4963bc5c289d75f (patch) | |
| tree | dae58f745e70011d6b87525617543b26a5ff39fe /ext/Storable | |
| parent | 9660f4819671f0b9100e5eabfa988ead3e799a1e (diff) | |
| download | perl-b162af07ec759e1ba6b84569e4963bc5c289d75f.tar.gz | |
Refactoring to Sv*_set() macros - patch #5
Message-ID: <20050419000925.GA21640@mccoy.peters.homeunix.org>
Date: Mon, 18 Apr 2005 19:09:25 -0500
p4raw-id: //depot/perl@24248
Diffstat (limited to 'ext/Storable')
| -rw-r--r-- | ext/Storable/Storable.pm | 2 | ||||
| -rw-r--r-- | ext/Storable/Storable.xs | 12 |
2 files changed, 7 insertions, 7 deletions
diff --git a/ext/Storable/Storable.pm b/ext/Storable/Storable.pm index bdfaa19735..2c7e307dad 100644 --- a/ext/Storable/Storable.pm +++ b/ext/Storable/Storable.pm @@ -21,7 +21,7 @@ package Storable; @ISA = qw(Exporter DynaLoader); use AutoLoader; use vars qw($canonical $forgive_me $VERSION); -$VERSION = '2.14'; +$VERSION = '2.15'; *AUTOLOAD = \&AutoLoader::AUTOLOAD; # Grrr... # diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index 6bd8343b63..702644e5f6 100644 --- a/ext/Storable/Storable.xs +++ b/ext/Storable/Storable.xs @@ -973,7 +973,7 @@ static const char byteorderstr_56[] = {BYTEORDER_BYTES_56, 0}; stash = gv_stashpv((p), TRUE); \ ref = newRV_noinc(s); \ (void) sv_bless(ref, stash); \ - SvRV(ref) = 0; \ + SvRV_set(ref, NULL); \ SvREFCNT_dec(ref); \ } STMT_END /* @@ -2849,7 +2849,7 @@ static int store_hook( ref = newRV_noinc(sv); /* Temporary reference */ av = array_call(aTHX_ ref, hook, clone); /* @a = $object->STORABLE_freeze($c) */ - SvRV(ref) = 0; + SvRV_set(ref, NULL); SvREFCNT_dec(ref); /* Reclaim temporary reference */ count = AvFILLp(av) + 1; @@ -4303,7 +4303,7 @@ static SV *retrieve_ref(pTHX_ stcxt_t *cxt, char *cname) sv_upgrade(rv, SVt_RV); } - SvRV(rv) = sv; /* $rv = \$sv */ + SvRV_set(rv, sv); /* $rv = \$sv */ SvROK_on(rv); TRACEME(("ok (retrieve_ref at 0x%"UVxf")", PTR2UV(rv))); @@ -4363,7 +4363,7 @@ static SV *retrieve_overloaded(pTHX_ stcxt_t *cxt, char *cname) */ sv_upgrade(rv, SVt_RV); - SvRV(rv) = sv; /* $rv = \$sv */ + SvRV_set(rv, sv); /* $rv = \$sv */ SvROK_on(rv); /* @@ -5886,8 +5886,8 @@ static SV *do_retrieve( SvUPGRADE(in, SVt_PV); SvPOK_on(in); SvPV_set(in, asbytes); - SvLEN(in) = klen_tmp; - SvCUR(in) = klen_tmp - 1; + SvLEN_set(in, klen_tmp); + SvCUR_set(in, klen_tmp - 1); } } #endif |