1N/A#!/usr/bin/perl
1N/A
1N/Aprint "1..1\n";
1N/A
1N/Amy $testversion = "0.97";
1N/Ause Tie::File;
1N/A
1N/Aif ($Tie::File::VERSION != $testversion) {
1N/A print STDERR "
1N/A
1N/A*** WHOA THERE!!! ***
1N/A
1N/AYou seem to be running version $Tie::File::VERSION of the module
1N/Aagainst version $testversion of the test suite!
1N/A
1N/ANone of the other test results will be reliable.
1N/A";
1N/A exit 1;
1N/A}
1N/A
1N/Aprint "ok 1\n";
1N/A