aboutsummaryrefslogtreecommitdiffstats
path: root/testing/perl-db_file-lock/fix-bug-98224-test-fails.patch
blob: 40a9adf9b2e2d1f512caf97dc2f71f4875bef0b4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
diff --git a/test.pl b/test.pl
old mode 100644
new mode 100755
index 92ebcf6..cba6da6
--- a/test.pl
+++ b/test.pl
@@ -81,7 +81,7 @@ if ( not defined $pid ) {
 	sleep(1);
 	$TEST_NUM += 2;
 	report_result( not tie %hash3, 'DB_File::Lock', $file1, O_RDWR, 0600, $DB_HASH, $nonblock_write );
-	report_result( not defined %hash3 ); # double check and satisfy -w about %hash3
+	report_result( not keys %hash3 ); # double check and satisfy -w about %hash3
 	$TEST_NUM += 1;
 	report_result( wait() == $pid );
 	report_result( tie %hash3, 'DB_File::Lock', $file1, O_RDWR, 0600, $DB_HASH, $nonblock_write );
--