diff options
Diffstat (limited to 'dev-perl/DB_File-Lock/files/DB_File-Lock-0.05-RT98224.patch')
| -rw-r--r-- | dev-perl/DB_File-Lock/files/DB_File-Lock-0.05-RT98224.patch | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/dev-perl/DB_File-Lock/files/DB_File-Lock-0.05-RT98224.patch b/dev-perl/DB_File-Lock/files/DB_File-Lock-0.05-RT98224.patch new file mode 100644 index 000000000000..6826dafb5d60 --- /dev/null +++ b/dev-perl/DB_File-Lock/files/DB_File-Lock-0.05-RT98224.patch @@ -0,0 +1,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 + |