#
# This script is normally invoked from regen.pl.
-$VERSION = '1.02_02';
+$VERSION = '1.02_03';
BEGIN {
require 'regen_lib.pl';
#define ckWARN3_d(w1,w2,w3) Perl_ckwarn_d(aTHX_ packWARN3(w1,w2,w3))
#define ckWARN4_d(w1,w2,w3,w4) Perl_ckwarn_d(aTHX_ packWARN4(w1,w2,w3,w4))
+#define WARNshift 8
+
#define packWARN(a) (a )
#define packWARN2(a,b) ((a) | ((b)<<8) )
#define packWARN3(a,b,c) ((a) | ((b)<<8) | ((c)<<16) )
package warnings;
-our $VERSION = '1.06';
+our $VERSION = '1.07';
# Verify that we're called correctly so that warnings will work.
# see also strict.pm.