blob: 233bc5ace3210f1ea5b9aa28353c5e1ba5eb1ac4 (
plain)
1
2
3
4
5
6
7
8
|
print "1..1\n";
$INC{"Carp.pm"} = "<faked>";
$Carp::VERSION = "0.90";
eval { require Carp::Heavy; };
print $@ =~ /\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";
1;
|
