summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-05-09 03:20:06 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-05-09 03:20:06 +0000
commit1b882d32f692ce67c7b4fa7e0684fcc65add31dc (patch)
treea9149363303d03d2c7bbf8909de84607c47c8180 /t
parent4068bd03d5fe1d4ce94ac9d57fdb058c7832a3f0 (diff)
downloadperl-1b882d32f692ce67c7b4fa7e0684fcc65add31dc.tar.gz
fix typo in dbm filters that caused odbm.t to fail
p4raw-id: //depot/perl@3344
Diffstat (limited to 't')
-rwxr-xr-xt/lib/odbm.t2
1 files changed, 2 insertions, 0 deletions
diff --git a/t/lib/odbm.t b/t/lib/odbm.t
index c5458d5e19..0ef2592c93 100755
--- a/t/lib/odbm.t
+++ b/t/lib/odbm.t
@@ -215,6 +215,8 @@ EOM
sub checkOutput
{
my($fk, $sk, $fv, $sv) = @_ ;
+ print "# ", join('|', $fetch_key, $fk, $store_key, $sk,
+ $fetch_value, $fv, $store_value, $sv, $_), "\n";
return
$fetch_key eq $fk && $store_key eq $sk &&
$fetch_value eq $fv && $store_value eq $sv &&