diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2007-09-01 21:41:57 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-02 08:06:33 +0000 |
| commit | d56f7e4ca45caec42b6ed197d4843e3e4a665e1f (patch) | |
| tree | e595c1c9e03e388df9007e265d573cd48284754c /t/lib | |
| parent | 07aa3531b6aaee06066f04e382127ab87e9c8c07 (diff) | |
| download | perl-d56f7e4ca45caec42b6ed197d4843e3e4a665e1f.tar.gz | |
Compress* 2.006
From: "Paul Marquess" <Paul.Marquess@ntlworld.com>
Message-ID: <00f501c7ecd0$29b32ef0$6601a8c0@myopwv.com>
p4raw-id: //depot/perl@31782
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/compress/generic.pl | 2 | ||||
| -rw-r--r-- | t/lib/compress/newtied.pl | 2 | ||||
| -rw-r--r-- | t/lib/compress/tied.pl | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/t/lib/compress/generic.pl b/t/lib/compress/generic.pl index 79e62c377a..51b45fc74b 100644 --- a/t/lib/compress/generic.pl +++ b/t/lib/compress/generic.pl @@ -612,7 +612,7 @@ EOM my $foo = "1234567890"; is $io->syswrite($foo, length($foo)), length($foo), " syswrite ok" ; - if ( $[ < 5.6 ) + if ( $] < 5.6 ) { is $io->syswrite($foo, length $foo), length $foo, " syswrite ok" } else { is $io->syswrite($foo), length $foo, " syswrite ok" } diff --git a/t/lib/compress/newtied.pl b/t/lib/compress/newtied.pl index 395039bb1e..41861e9072 100644 --- a/t/lib/compress/newtied.pl +++ b/t/lib/compress/newtied.pl @@ -103,7 +103,7 @@ sub run my $foo = "1234567890"; ok syswrite($io, $foo, length($foo)) == length($foo) ; - if ( $[ < 5.6 ) + if ( $] < 5.6 ) { is $io->syswrite($foo, length $foo), length $foo } else { is $io->syswrite($foo), length $foo } diff --git a/t/lib/compress/tied.pl b/t/lib/compress/tied.pl index 7833b9a7d9..80d42b7561 100644 --- a/t/lib/compress/tied.pl +++ b/t/lib/compress/tied.pl @@ -150,7 +150,7 @@ sub run my $foo = "1234567890"; ok syswrite($io, $foo, length($foo)) == length($foo) ; - if ( $[ < 5.6 ) + if ( $] < 5.6 ) { is $io->syswrite($foo, length $foo), length $foo } else { is $io->syswrite($foo), length $foo } |