diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-24 22:25:41 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-24 22:25:41 +0000 |
| commit | bfe34c33e5ad91a724d747f3d2895f9972445943 (patch) | |
| tree | 0b1aa04e572ba02eab5781bb831bccec17de7202 /ext | |
| parent | e9e131b63ff4aed6faec73859fdd21ad0772c6c2 (diff) | |
| download | perl-bfe34c33e5ad91a724d747f3d2895f9972445943.tar.gz | |
UNICOS: since $] is really 5.00700299999997,
testing for equivalence with 5.007003 isn't correct.
(From Nicholas Clark.)
p4raw-id: //depot/perl@16773
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Storable/t/downgrade.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Storable/t/downgrade.t b/ext/Storable/t/downgrade.t index 6e6935da3b..bdda364713 100644 --- a/ext/Storable/t/downgrade.t +++ b/ext/Storable/t/downgrade.t @@ -38,7 +38,7 @@ use vars qw(@RESTRICT_TESTS %R_HASH %U_HASH $UTF8_CROAK $RESTRICTED_CROAK); ); %R_HASH = (perl => 'rules'); -if ($] >= 5.007003) { +if ($] > 5.007002) { # This is cheating. "\xdf" in Latin 1 is beta S, so will match \w if it # is stored in utf8, not bytes. # "\xdf" is y diaresis in EBCDIC (except for cp875, but so far no-one seems @@ -206,7 +206,7 @@ if ($] >= 5.006) { thaw_scalar ('Long 24 bit utf8 data', $$bytes x 256); } -if ($] >= 5.007003) { +if ($] > 5.007002) { print "# We have utf8 hashes, so test that the utf8 hashes in <DATA> are valid\n"; my $hash = thaw_hash ('Hash with utf8 keys', \%U_HASH); for (keys %$hash) { |