1#!/usr/bin/perl 2 3print "1..1\n"; 4 5my $testversion = "0.97"; 6use Tie::File; 7 8if ($Tie::File::VERSION != $testversion) { 9 print STDERR " 10 11*** WHOA THERE!!! *** 12 13You seem to be running version $Tie::File::VERSION of the module 14against version $testversion of the test suite! 15 16None of the other test results will be reliable. 17"; 18 exit 1; 19} 20 21print "ok 1\n"; 22 23