From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 24 May 2002 22:25:41 +0000 (+0000)
Subject: UNICOS: since $] is really 5.00700299999997,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bfe34c33e5ad91a724d747f3d2895f9972445943;p=p5sagit%2Fp5-mst-13.2.git

UNICOS: since $] is really 5.00700299999997,
testing for equivalence with 5.007003 isn't correct.
(From Nicholas Clark.)

p4raw-id: //depot/perl@16773
---

diff --git a/ext/Storable/t/downgrade.t b/ext/Storable/t/downgrade.t
index 6e6935d..bdda364 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) {