#!/usr/bin/perl
-$VERSION = '1.02_01';
+$VERSION = '1.02_02';
BEGIN {
push @INC, './lib';
#define G_WARN_ONCE 8 /* set if 'once' ever enabled */
#define G_WARN_ALL_MASK (G_WARN_ALL_ON|G_WARN_ALL_OFF)
-#define pWARN_STD Nullsv
-#define pWARN_ALL (Nullsv+1) /* use warnings 'all' */
-#define pWARN_NONE (Nullsv+2) /* no warnings 'all' */
+#define pWARN_STD NULL
+#define pWARN_ALL (((SV*)0)+1) /* use warnings 'all' */
+#define pWARN_NONE (((SV*)0)+2) /* no warnings 'all' */
#define specialWARN(x) ((x) == pWARN_STD || (x) == pWARN_ALL || \
(x) == pWARN_NONE)
package warnings;
-our $VERSION = '1.04';
+our $VERSION = '1.05';
=head1 NAME
sub Croaker
{
require Carp::Heavy; # this initializes %CarpInternal
+ local $Carp::CarpInternal{'warnings'};
delete $Carp::CarpInternal{'warnings'};
Carp::croak(@_);
}