Warn correctly about old DB under Mac OS X Jaguar
authorLeon Brocard <acme@astray.com>
Wed, 18 Feb 2004 12:24:19 +0000 (12:24 +0000)
committerLeon Brocard <acme@astray.com>
Wed, 18 Feb 2004 12:24:19 +0000 (12:24 +0000)
(spotted by Elizabeth Mattijsen)

p4raw-id: //depot/maint-5.005/perl@22335

t/lib/db-btree.t
t/lib/db-recno.t

index 2fc11cd..5ee3f74 100755 (executable)
@@ -18,10 +18,8 @@ BEGIN {
             exit 0;
         }
     }
-    if ($^O eq 'darwin'
-       && $Config{db_version_major} == 1
-       && $Config{db_version_minor} == 0
-       && $Config{db_version_patch} == 0) {
+    use DB_File;
+    if ($^O eq 'darwin' && ($DB_File::db_version < 2)) {
        warn <<EOM;
 #
 # This test is known to crash in Mac OS X versions 10.2 (or earlier)
@@ -31,7 +29,6 @@ EOM
     }
 }
 
-use DB_File; 
 use Fcntl;
 
 print "1..177\n";
index bac08a0..d15dea1 100755 (executable)
@@ -106,10 +106,7 @@ sub bad_one
 # Some older versions of Berkeley DB version 1 will fail db-recno
 # tests 61, 63, 64 and 65.
 EOM
-        if ($^O eq 'darwin'
-           && $Config{db_version_major} == 1
-           && $Config{db_version_minor} == 0
-           && $Config{db_version_patch} == 0) {
+        if ($^O eq 'darwin' && ($DB_File::db_version || 0) < 2) {
            print STDERR <<EOM ;
 #
 # For example Mac OS X 10.2 (or earlier) has such an old