Cross Reference: 00_version.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
Tie
/
File
/
t
/
00_version.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!/
usr
/
bin
/
perl
1
N/A
1
N/A
print
"1..1\n"
;
1
N/A
1
N/A
my
$testversion
=
"0.97"
;
1
N/A
use
Tie
::
File
;
1
N/A
1
N/A
if
(
$Tie
::
File
::
VERSION
!=
$testversion
)
{
1
N/A
print
STDERR
"
1
N/A
1
N/A
*** WHOA THERE!!! ***
1
N/A
1
N/A
You seem to be running version
$Tie
::File::VERSION of the module
1
N/A
against version
$testversion
of the test suite!
1
N/A
1
N/A
None of the other test results will be reliable.
1
N/A
"
;
1
N/A
exit
1
;
1
N/A
}
1
N/A
1
N/A
print
"ok 1\n"
;
1
N/A