diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2000-08-07 17:59:38 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-07 16:12:27 +0000 |
| commit | 81689caa70f1ebdcb0b17a51c3e0742ee11ec130 (patch) | |
| tree | 9176563e9a9dbc3242f7453a347c35ccf1aa34bf /sv.c | |
| parent | 427f4adb1817daf51d5b7762a1ebb87394ca8ac8 (diff) | |
| download | perl-81689caa70f1ebdcb0b17a51c3e0742ee11ec130.tar.gz | |
Make bless(REF, REF) a fatal error, add bless tests.
Subject: [PATCH bleadperl-6530] bless, REF, and bless(REF, REF)
Message-Id: <200008071559.QAA29541@crypt.compulink.co.uk>
p4raw-id: //depot/perl@6539
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -2182,7 +2182,10 @@ Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp) case SVt_PV: case SVt_PVIV: case SVt_PVNV: - case SVt_PVBM: s = "SCALAR"; break; + case SVt_PVBM: if (SvROK(sv)) + s = "REF"; + else + s = "SCALAR"; break; case SVt_PVLV: s = "LVALUE"; break; case SVt_PVAV: s = "ARRAY"; break; case SVt_PVHV: s = "HASH"; break; |