projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
f98523a0e15e40c8fe951fafa2253a1b40d43ba3
[p5sagit/p5-mst-13.2.git]
/
ext
/
Tie-File
/
t
/
00_version.t
1
#!/usr/bin/perl
2
3
print "1..1\n";
4
5
my $testversion = "0.97_01";
6
use Tie::File;
7
8
if ($Tie::File::VERSION != $testversion) {
9
print STDERR "
10
11
*** WHOA THERE!!! ***
12
13
You seem to be running version $Tie::File::VERSION of the module
14
against version $testversion of the test suite!
15
16
None of the other test results will be reliable.
17
";
18
exit 1;
19
}
20
21
print "ok 1\n";
22