mirror of
https://github.com/gentoo-mirror/gentoo.git
synced 2025-12-23 21:57:33 -08:00
30 lines
967 B
Diff
30 lines
967 B
Diff
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
|
|
|