1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
From 247a7ec3a57f2bca977531281f258d5e4ed46c1f Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Thu, 21 Aug 2014 19:54:41 +0200
Subject: [PATCH] don't use defined %hash
This fixes https://rt.cpan.org/Ticket/Display.html?id=98224
---
test.pl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
mode change 100644 => 100755 test.pl
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 );
--
1.8.3.4
|