#!perl -w use strict; no strict "vars"; #taken from STBEY/Date-Calc-5.3/t/f000.t #Modified line 36, changed the version number from 5.0 to 5.1 # ====================================================================== # $version = $Carp::Clan::VERSION; # ====================================================================== $Carp::Clan::VERSION = $Carp::Clan::VERSION = 0; $tests = 2; print "1..$tests\n"; $n = 1; eval { require Carp::Clan; Carp::Clan->import( qw(^Date::) ); }; if ($@) { print "not ok $n\n"; $n++; print "not ok $n\n"; } else { print "ok $n\n"; $n++; if ($Carp::Clan::VERSION eq '5.1') {print "ok $n\n";} else {print "not ok $n\n";} } $n++; __END__