From 09ed8b2acd22edd570e107670bc6220eaef39cf3 Mon Sep 17 00:00:00 2001 From: Timothy Legge Date: Sun, 25 Nov 2018 02:43:06 +0000 Subject: testing/perl-db_file-lock: new aport Includes patch to fix Bug #98224 for DB_File-Lock: Test fails with perl 5.21.x: Can't use 'defined(%hash)' --- testing/perl-db_file-lock/fix-bug-98224-test-fails.patch | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 testing/perl-db_file-lock/fix-bug-98224-test-fails.patch (limited to 'testing/perl-db_file-lock/fix-bug-98224-test-fails.patch') diff --git a/testing/perl-db_file-lock/fix-bug-98224-test-fails.patch b/testing/perl-db_file-lock/fix-bug-98224-test-fails.patch new file mode 100644 index 0000000000..40a9adf9b2 --- /dev/null +++ b/testing/perl-db_file-lock/fix-bug-98224-test-fails.patch @@ -0,0 +1,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 ); +-- -- cgit v1.2.3