mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-07-19 01:05:15 +03:00
Includes patch to fix Bug #98224 for DB_File-Lock: Test fails with perl 5.21.x: Can't use 'defined(%hash)'
16 lines
604 B
Diff
16 lines
604 B
Diff
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 );
|
|
--
|