diff -uNr DB_File-Lock-0.05/test.pl DB_File-Lock-0.05p/test.pl
--- DB_File-Lock-0.05/test.pl	2002-04-09 22:34:10.000000000 +0300
+++ DB_File-Lock-0.05p/test.pl	2015-08-15 18:52:34.514913547 +0300
@@ -81,7 +81,7 @@
 	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 %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 );