Commit | Line | Data |
---|---|---|
1 | print "1..3\n"; | |
2 | ||
3 | print defined(&Carp::carp) ? "not " : "", "ok 1 # control\n"; | |
4 | require Carp::Heavy; | |
5 | print defined(&Carp::carp) ? "" : "not ", "ok 2 # carp loaded by Carp::Heavy\n"; | |
6 | eval q{ | |
7 | print $Carp::Heavy::VERSION eq $Carp::VERSION ? "" : "not ", | |
8 | "ok 3 # version numbers match\n"; | |
9 | }; | |
10 | ||
11 | 1; |