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 (executable)
--- 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
        }