Fix tie argument handling.  Thanks to Frank Lichtenheld for the patch.
Closes: #334451 [rt.cpan.org #18613].

--- a/Lock.pm
+++ b/Lock.pm
@@ -117,8 +117,8 @@
 	}
 
 	my $self = $tie_type eq "TIEHASH"
-		? $package->SUPER::TIEHASH(@_)
-		: $package->SUPER::TIEARRAY(@_);
+		? $package->SUPER::TIEHASH(@dbfile_data)
+		: $package->SUPER::TIEARRAY(@dbfile_data);
 	if ( not $self ) {
 		close $lockfile_fh;
 		return $self;