diff options
author | Doug MacEachern <dougm@covalent.net> | 2001-05-26 04:26:07 -0700 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-26 22:35:31 +0000 |
commit | 89cd1aa38d5935328b2eb138bbf300778b3c3804 (patch) | |
tree | 76d5a7b9fc26f7802ec20f5a4178c1e9393c93a3 /sv.c | |
parent | 8d6d96c1bf85fd984f18f84ea834be52b168c812 (diff) | |
download | perl-89cd1aa38d5935328b2eb138bbf300778b3c3804.tar.gz |
change 10199 backwards?
Message-ID: <Pine.LNX.4.21.0105261118510.22038-100000@mako.covalent.net>
p4raw-id: //depot/perl@10224
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 38 |
1 files changed, 19 insertions, 19 deletions
@@ -8082,9 +8082,9 @@ Perl_sv_dup(pTHX_ SV *sstr) break; case SVt_RV: SvANY(dstr) = new_XRV(); - SvRV(dstr) = SvWEAKREF(SvRV(sstr)) - ? sv_dup_inc(SvRV(sstr)) - : sv_dup(SvRV(sstr)); + SvRV(dstr) = SvRV(sstr) && SvWEAKREF(SvRV(sstr)) + ? sv_dup(SvRV(sstr)) + : sv_dup_inc(SvRV(sstr)); break; case SVt_PV: SvANY(dstr) = new_XPV(); @@ -8092,8 +8092,8 @@ Perl_sv_dup(pTHX_ SV *sstr) SvLEN(dstr) = SvLEN(sstr); if (SvROK(sstr)) SvRV(dstr) = SvWEAKREF(SvRV(sstr)) - ? sv_dup_inc(SvRV(sstr)) - : sv_dup(SvRV(sstr)); + ? sv_dup(SvRV(sstr)) + : sv_dup_inc(SvRV(sstr)); else if (SvPVX(sstr) && SvLEN(sstr)) SvPVX(dstr) = SAVEPVN(SvPVX(sstr), SvLEN(sstr)-1); else @@ -8106,8 +8106,8 @@ Perl_sv_dup(pTHX_ SV *sstr) SvIVX(dstr) = SvIVX(sstr); if (SvROK(sstr)) SvRV(dstr) = SvWEAKREF(SvRV(sstr)) - ? sv_dup_inc(SvRV(sstr)) - : sv_dup(SvRV(sstr)); + ? sv_dup(SvRV(sstr)) + : sv_dup_inc(SvRV(sstr)); else if (SvPVX(sstr) && SvLEN(sstr)) SvPVX(dstr) = SAVEPVN(SvPVX(sstr), SvLEN(sstr)-1); else @@ -8121,8 +8121,8 @@ Perl_sv_dup(pTHX_ SV *sstr) SvNVX(dstr) = SvNVX(sstr); if (SvROK(sstr)) SvRV(dstr) = SvWEAKREF(SvRV(sstr)) - ? sv_dup_inc(SvRV(sstr)) - : sv_dup(SvRV(sstr)); + ? sv_dup(SvRV(sstr)) + : sv_dup_inc(SvRV(sstr)); else if (SvPVX(sstr) && SvLEN(sstr)) SvPVX(dstr) = SAVEPVN(SvPVX(sstr), SvLEN(sstr)-1); else @@ -8138,8 +8138,8 @@ Perl_sv_dup(pTHX_ SV *sstr) SvSTASH(dstr) = hv_dup_inc(SvSTASH(sstr)); if (SvROK(sstr)) SvRV(dstr) = SvWEAKREF(SvRV(sstr)) - ? sv_dup_inc(SvRV(sstr)) - : sv_dup(SvRV(sstr)); + ? sv_dup(SvRV(sstr)) + : sv_dup_inc(SvRV(sstr)); else if (SvPVX(sstr) && SvLEN(sstr)) SvPVX(dstr) = SAVEPVN(SvPVX(sstr), SvLEN(sstr)-1); else @@ -8155,8 +8155,8 @@ Perl_sv_dup(pTHX_ SV *sstr) SvSTASH(dstr) = hv_dup_inc(SvSTASH(sstr)); if (SvROK(sstr)) SvRV(dstr) = SvWEAKREF(SvRV(sstr)) - ? sv_dup_inc(SvRV(sstr)) - : sv_dup(SvRV(sstr)); + ? sv_dup(SvRV(sstr)) + : sv_dup_inc(SvRV(sstr)); else if (SvPVX(sstr) && SvLEN(sstr)) SvPVX(dstr) = SAVEPVN(SvPVX(sstr), SvLEN(sstr)-1); else @@ -8175,8 +8175,8 @@ Perl_sv_dup(pTHX_ SV *sstr) SvSTASH(dstr) = hv_dup_inc(SvSTASH(sstr)); if (SvROK(sstr)) SvRV(dstr) = SvWEAKREF(SvRV(sstr)) - ? sv_dup_inc(SvRV(sstr)) - : sv_dup(SvRV(sstr)); + ? sv_dup(SvRV(sstr)) + : sv_dup_inc(SvRV(sstr)); else if (SvPVX(sstr) && SvLEN(sstr)) SvPVX(dstr) = SAVEPVN(SvPVX(sstr), SvLEN(sstr)-1); else @@ -8208,8 +8208,8 @@ Perl_sv_dup(pTHX_ SV *sstr) SvSTASH(dstr) = hv_dup_inc(SvSTASH(sstr)); if (SvROK(sstr)) SvRV(dstr) = SvWEAKREF(SvRV(sstr)) - ? sv_dup_inc(SvRV(sstr)) - : sv_dup(SvRV(sstr)); + ? sv_dup(SvRV(sstr)) + : sv_dup_inc(SvRV(sstr)); else if (SvPVX(sstr) && SvLEN(sstr)) SvPVX(dstr) = SAVEPVN(SvPVX(sstr), SvLEN(sstr)-1); else @@ -8231,8 +8231,8 @@ Perl_sv_dup(pTHX_ SV *sstr) SvSTASH(dstr) = hv_dup_inc(SvSTASH(sstr)); if (SvROK(sstr)) SvRV(dstr) = SvWEAKREF(SvRV(sstr)) - ? sv_dup_inc(SvRV(sstr)) - : sv_dup(SvRV(sstr)); + ? sv_dup(SvRV(sstr)) + : sv_dup_inc(SvRV(sstr)); else if (SvPVX(sstr) && SvLEN(sstr)) SvPVX(dstr) = SAVEPVN(SvPVX(sstr), SvLEN(sstr)-1); else |