#!/usr/bin/perl
-$VERSION = '1.02_01';
+$VERSION = '1.02_02';
BEGIN {
push @INC, './lib';
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(@_);
}