diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-12-31 00:08:00 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-12-31 00:08:00 +0000 |
| commit | 1cb9cd5016282146cd55ab904078500def5f5754 (patch) | |
| tree | 4952a1cfb2e8ca1b21b5c8c452ec04043a27857e /ext | |
| parent | f6fd7794b9baf00eb9b1d47e4ad481f2e8866e76 (diff) | |
| download | perl-1cb9cd5016282146cd55ab904078500def5f5754.tar.gz | |
Move SVt_BIND to be the lowest type after SVt_NULL. This will force all
code attempting to upgrade a BIND to anything into sv_upgrade(), which
for now will croak, but in future can DTRT, for whatever TRT is decided
to be. Make SvOK() check the flags of the referenant for a BIND, as I
envisage that the only flag bit that will get set on a BIND is SVf_UTF8
even if the referant has a defined value.
p4raw-id: //depot/perl@29642
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 84b29055c6..a782d68963 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -21,12 +21,12 @@ typedef FILE * InputStream; static const char* const svclassnames[] = { "B::NULL", - "B::IV", - "B::NV", - "B::RV", #if PERL_VERSION >= 9 "B::BIND", #endif + "B::IV", + "B::NV", + "B::RV", "B::PV", "B::PVIV", "B::PVNV", |