Change 32715 by [EMAIL PROTECTED] on 2007/12/23 11:27:25
Add an assert() to verify my assumption that no-one upgrades a scalar
which has a referant but isn't flagged as a reference.
Affected files ...
... //depot/perl/sv.c#1449 edit
Differences ...
==== //depot/perl/sv.c#1449 (text) ====
Index: perl/sv.c
--- perl/sv.c#1448~32707~ 2007-12-22 10:26:21.000000000 -0800
+++ perl/sv.c 2007-12-23 03:27:25.000000000 -0800
@@ -1123,6 +1123,12 @@
if (old_type == new_type)
return;
+ if (old_type == SVt_RV) {
+ /* Verify my assumption that no-one upgrades a scalar which has a
+ referant but isn't flagged as a reference. */
+ assert(!(!SvROK(sv) && SvRV(sv)));
+ }
+
old_body = SvANY(sv);
/* Copying structures onto other structures that have been neatly zeroed
End of Patch.
