Commit | Line | Data |
---|---|---|
2f87dc78 | 1 | print "1..3\n"; |
2a420f95 Z |
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"; | |
2f87dc78 Z |
6 | eval q{ |
7 | print $Carp::Heavy::VERSION eq $Carp::VERSION ? "" : "not ", | |
8 | "ok 3 # version numbers match\n"; | |
9 | }; | |
2a420f95 Z |
10 | |
11 | 1; |