1package Carp::Heavy; 2 3use Carp (); 4 5our $VERSION = '1.54'; 6$VERSION =~ tr/_//d; 7 8# Carp::Heavy was merged into Carp in version 1.12. Any mismatched versions 9# after this point are not significant and can be ignored. 10if(($Carp::VERSION || 0) < 1.12) { 11 my $cv = defined($Carp::VERSION) ? $Carp::VERSION : "undef"; 12 die "Version mismatch between Carp $cv ($INC{q(Carp.pm)}) and Carp::Heavy $VERSION ($INC{q(Carp/Heavy.pm)}). Did you alter \@INC after Carp was loaded?\n"; 13} 14 151; 16 17# Most of the machinery of Carp used to be here. 18# It has been moved in Carp.pm now, but this placeholder remains for 19# the benefit of modules that like to preload Carp::Heavy directly. 20# This must load Carp, because some modules rely on the historical 21# behaviour of Carp::Heavy loading Carp. 22