diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-07-18 19:49:43 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-24 13:04:24 +0000 |
| commit | be65207d0b2b85c02537b6bafe56904f5103ed15 (patch) | |
| tree | 7f635d2aa4c505592164fbbeb9fc3617fa1437a9 /sv.c | |
| parent | c6e79e554b8069d6810923749bcdc82256cfd522 (diff) | |
| download | perl-be65207d0b2b85c02537b6bafe56904f5103ed15.tar.gz | |
Re: Reference to tied elements results in lvalue.
Message-ID: <20030718174943.GB6427@fdgroup.com>
p4raw-id: //depot/perl@20199
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 13 |
1 files changed, 11 insertions, 2 deletions
@@ -3087,7 +3087,11 @@ Perl_sv_2pv_flags(pTHX_ register SV *sv, STRLEN *lp, I32 flags) s = "REF"; else s = "SCALAR"; break; - case SVt_PVLV: s = SvROK(sv) ? "REF":"LVALUE"; break; + case SVt_PVLV: s = SvROK(sv) ? "REF" + /* tied lvalues should appear to be + * scalars for backwards compatitbility */ + : (LvTYPE(sv) == 't' || LvTYPE(sv) == 'T') + ? "SCALAR" : "LVALUE"; break; case SVt_PVAV: s = "ARRAY"; break; case SVt_PVHV: s = "HASH"; break; case SVt_PVCV: s = "CODE"; break; @@ -7846,7 +7850,12 @@ Perl_sv_reftype(pTHX_ SV *sv, int ob) return "REF"; else return "SCALAR"; - case SVt_PVLV: return SvROK(sv) ? "REF" : "LVALUE"; + + case SVt_PVLV: return SvROK(sv) ? "REF" + /* tied lvalues should appear to be + * scalars for backwards compatitbility */ + : (LvTYPE(sv) == 't' || LvTYPE(sv) == 'T') + ? "SCALAR" : "LVALUE"; case SVt_PVAV: return "ARRAY"; case SVt_PVHV: return "HASH"; case SVt_PVCV: return "CODE"; |