File: tie_argument_handling.patch

package info (click to toggle)
libdb-file-lock-perl 0.05-3
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, squeeze, wheezy
  • size: 84 kB
  • ctags: 8
  • sloc: perl: 187; makefile: 2
file content (16 lines) | stat: -rw-r--r-- 421 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
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;