diff options
author | Chip Salzenberg <chip@atlantic.net> | 1997-01-16 09:43:19 +1200 |
---|---|---|
committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-17 08:39:00 +1200 |
commit | 25268f1564cd55111fa2903d4311c37bdcc64633 (patch) | |
tree | 5dd7a2da7e48e07169ab23879bd5922b4722ac54 /t | |
parent | ee2ff9ea616cd43b1dab6bbf9bdba0cdcfdf5a8b (diff) | |
download | perl-25268f1564cd55111fa2903d4311c37bdcc64633.tar.gz |
Fix thinko in db-recno.t
Diffstat (limited to 't')
-rwxr-xr-x | t/lib/db-recno.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/lib/db-recno.t b/t/lib/db-recno.t index da3edbf45f..045ddd99b0 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 |