fix various 5.00552 mishaps (fixes suggested by Jan Dubois,

Kurt Starsinic, Spider Boardman, Dan Sugalski and Albert
Dvornik)

p4raw-id: //depot/perl@1899

1 files changed, 6 insertions, 3 deletions

diff --git a/mg.c b/mg.c
index e4ddcd64c4..1af7240def 100644
--- a/mg.c
+++ b/mg.c
@@ -94,10 +94,13 @@ restore_magic(void *p)
      */
     if (PL_savestack_ix == mgs->mgs_ss_ix)
     {
-        assert(SSPOPINT == SAVEt_DESTRUCTOR);
+	I32 popval = SSPOPINT;
+        assert(popval == SAVEt_DESTRUCTOR);
         PL_savestack_ix -= 2;
-        assert(SSPOPINT == SAVEt_ALLOC);
-        PL_savestack_ix -= SSPOPINT;
+	popval = SSPOPINT;
+        assert(popval == SAVEt_ALLOC);
+	popval = SSPOPINT;
+        PL_savestack_ix -= popval;
     }
 
 }