Change 32788: assert() that we're not trying to free scalars a second time.

[Nicholas Clark]

Change 32788 by [EMAIL PROTECTED] on 2007/12/31 11:04:54

        assert() that we're not trying to free scalars a second time.

Affected files ...

... //depot/perl/sv.c#1461 edit

Differences ...

==== //depot/perl/sv.c#1461 (text) ====
Index: perl/sv.c
--- perl/sv.c#1460~32778~       2007-12-29 11:50:27.000000000 -0800
+++ perl/sv.c   2007-12-31 03:04:54.000000000 -0800
@@ -5136,6 +5136,7 @@
 
     assert(sv);
     assert(SvREFCNT(sv) == 0);
+    assert(SvTYPE(sv) != SVTYPEMASK);
 
     if (type <= SVt_IV) {
        /* See the comment in sv.h about the collusion between this early
End of Patch.