| Subject: | tie argument handling broken |
Frank Lichtenheld <djpig@debian.org> submitted the following bug report
at <http://bugs.debian.org/334451>:
Show quoted text
> Please replace
>
> my $self = $tie_type eq "TIEHASH"
> ? $package->SUPER::TIEHASH(@_)
> : $package->SUPER::TIEARRAY(@_);
>
> by
>
> my $self = $tie_type eq "TIEHASH"
> ? $package->SUPER::TIEHASH(@dbfile_data)
> : $package->SUPER::TIEARRAY(@dbfile_data);
>
> Otherwise the whole module doesn't work at all if providing the
> DB_File args as an array ref. Even worse the module doesn't notice
> that it doesn't work and writes the data to a file named
> "ARRAY(0x<somenumber>)"...
>
> Obviously nobody ever tried that feature...
Thanks in advance,
Matej
| Subject: | tie-array-ref.patch |
--- Lock.pm.orig
+++ 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;