1print "1..1\n";
2
3$INC{"Carp.pm"} = "<faked>";
4$Carp::VERSION = "0.90";
5eval { require Carp::Heavy; };
6print $@ =~ /\AVersion mismatch between Carp 0\.90 \(<faked>\) and Carp::Heavy [0-9._]+ \(.+\)\. Did you alter \@INC after Carp was loaded\?\n/ ? "" : "not ", "ok 1\n";
7
81;
9