From: Chip Salzenberg <chip@atlantic.net>
Date: Wed, 15 Jan 1997 21:43:19 +0000 (+1200)
Subject: Fix thinko in db-recno.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=25268f1564cd55111fa2903d4311c37bdcc64633;p=p5sagit%2Fp5-mst-13.2.git

Fix thinko in db-recno.t
---

diff --git a/t/lib/db-recno.t b/t/lib/db-recno.t
index da3edbf..045ddd9 100755
--- a/t/lib/db-recno.t
+++ b/t/lib/db-recno.t
@@ -12,7 +12,7 @@ BEGIN {
 use DB_File; 
 use Fcntl;
 use strict ;
-use vars qw($dbh $Dfile) ;
+use vars qw($dbh $Dfile $bad_ones) ;
 
 sub ok
 {
@@ -27,8 +27,8 @@ sub ok
 
 sub bad_one
 {
-    print <<EOM unless $bad_ones++ ;
-# 
+    print STDERR <<EOM unless $bad_ones++ ;
+#
 # Some older versions of Berkeley DB will fail tests 51, 53 and 55.
 #
 # You can safely ignore the errors if you're never going to use the