#!/usr/bin/perl
+#
+# Regenerate (overwriting only if changed):
+#
+# lib/warnings.pm
+# warnings.h
+#
+# from information hardcoded into this script (the $tree hash), plus the
+# template for warnings.pm in the DATA section.
+#
+# With an argument of 'tree', just dump the contents of $tree and exits.
+# Also accepts the standard regen_lib -q and -v args.
+#
+# This script is normally invoked from regen.pl.
-$VERSION = '1.02_02';
+$VERSION = '1.02_03';
BEGIN {
require 'regen_lib.pl';
/* ex: set ro: */
EOM
-close $warn;
+safer_close $warn;
rename_if_different("warnings.h-new", "warnings.h");
while (<DATA>) {
}
print $pm "# ex: set ro:\n";
-close $pm;
+safer_close $pm;
rename_if_different("lib/warnings.pm-new", "lib/warnings.pm");
__END__
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.
sub Croaker
{
- require Carp::Heavy; # this initializes %CarpInternal
+ require Carp; # this initializes %CarpInternal
local $Carp::CarpInternal{'warnings'};
delete $Carp::CarpInternal{'warnings'};
Carp::croak(@_);
}
sub _error_loc {
- require Carp::Heavy;
+ require Carp;
goto &Carp::short_error_loc; # don't introduce another stack frame
}