From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 6 Apr 2002 18:54:06 +0000 (+0000)
Subject: Prettyprinting and version paranoia.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f41957b6be2495812a293a55e64b2348f9b47f9;p=p5sagit%2Fp5-mst-13.2.git

Prettyprinting and version paranoia.

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

diff --git a/ext/DB_File/t/db-recno.t b/ext/DB_File/t/db-recno.t
index bd7ba83..cf67737 100755
--- a/ext/DB_File/t/db-recno.t
+++ b/ext/DB_File/t/db-recno.t
@@ -97,12 +97,14 @@ sub bad_one
 # Some older versions of Berkeley DB version 1 will fail db-recno
 # tests 61, 63 and 65.
 EOM
-        if ($^O eq 'darwin') {
-	print STDERR <<EOM ;
-#
-#  For example Mac OS X 10.1.3 (or earlier) has such an old
-#  version of Berkeley DB.
+        if ($^O eq 'darwin'
+	    && $Config{db_version_major} == 1
+	    && $Config{db_version_minor} == 0
+	    && $Config{db_version_patch} == 0) {
+	    print STDERR <<EOM ;
 #
+# For example Mac OS X 10.1.3 (or earlier) has such an old
+# version of Berkeley DB.
 EOM
 	}