Changes to allow compiler with gcc-2.8.1 in C++ mode,

[p5sagit/p5-mst-13.2.git] / cop.h

diff --git a/cop.h b/cop.h
index fa1d54d..5eebaba 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -297,10 +297,8 @@ struct context {
 #define SI_SIGNAL      4
 #define SI_OVERLOAD    5
 #define SI_DESTROY     6
-/* XXX todo
 #define SI_WARNHOOK    7
 #define SI_DIEHOOK     8
-*/
 
 struct stackinfo {
     AV *               si_stack;       /* stack for current runlevel */
@@ -357,6 +355,8 @@ typedef struct stackinfo PERL_SI;
 
 #define POPSTACK_TO(s) \
     STMT_START {                                                       \
-       while (curstack != s)                                           \
+       while (curstack != s) {                                         \
+           dounwind(-1);                                               \
            POPSTACK();                                                 \
+       }                                                               \
     } STMT_END