Bug#433951: libhttp-proxy-perl: save filter "filename" parameter used invalidly

[Roland Stigge]

Package: libhttp-proxy-perl
Version: 0.20-1
Severity: normal
Tags: patch

Hi,

consider the attached patch. It adopts the code to the documentation
(see inline pod).

bye,
  Roland

-- System Information:
Debian Release: lenny/sid
  APT prefers unstable
  APT policy: (500, 'unstable'), (1, 'experimental')
Architecture: i386 (i686)

Kernel: Linux 2.6.21-2-686 (SMP w/1 CPU core)
Locale: LANG=en_GB.UTF-8, LC_CTYPE=en_GB.UTF-8 (charmap=UTF-8) (ignored: LC_ALL 
set to en_GB.UTF-8)
Shell: /bin/sh linked to /bin/bash

Versions of packages libhttp-proxy-perl depends on:
ii  libwww-perl                   5.805-1    WWW client/server library for Perl
ii  perl                          5.8.8-7    Larry Wall's Practical Extraction 

libhttp-proxy-perl recommends no packages.

-- no debconf information

--- libhttp-proxy-perl-0.20/lib/HTTP/Proxy/BodyFilter/save.pm.orig      
2007-07-20 16:17:20.000000000 +0200
+++ libhttp-proxy-perl-0.20/lib/HTTP/Proxy/BodyFilter/save.pm   2007-07-20 
16:17:28.000000000 +0200
@@ -58,7 +58,7 @@
     my $file = '';
     if( defined $self->{_hpbf_save_filename} ) {
         # use the user-provided callback
-        $file = &{ $self->{_hpbf_save_filename} }->($message);
+        $file = &{ $self->{_hpbf_save_filename} }($message);
         unless ( defined $file and $file ne '' ) {
             $self->proxy->log( HTTP::Proxy::FILTERS, "HTBF::save",
                                "Filter will not save $uri" );