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 | |
| parent | ee2ff9ea616cd43b1dab6bbf9bdba0cdcfdf5a8b (diff) | |
| download | perl-25268f1564cd55111fa2903d4311c37bdcc64633.tar.gz | |
Fix thinko in db-recno.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 |