This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PL_madskills is a bool, so save it as one (else Solaris rightly
authorNicholas Clark <nick@ccl4.org>
Thu, 12 Apr 2007 20:45:21 +0000 (20:45 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 12 Apr 2007 20:45:21 +0000 (20:45 +0000)
SIGBUSes)

p4raw-id: //depot/perl@30939

pp_ctl.c

index 63b7039..6f91d02 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2911,7 +2911,7 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq)
     SAVEI32(PL_error_count);
 
 #ifdef PERL_MAD
-    SAVEI32(PL_madskills);
+    SAVEBOOL(PL_madskills);
     PL_madskills = 0;
 #endif