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 ); --