|
The following code does not work.
#!/usr/bin/perl
use HTTP::Proxy;
use HTTP::Proxy::BodyFilter::save;
my $proxy = HTTP::Proxy->new();
$proxy->push_filter(
response => HTTP::Proxy::BodyFilter::save->new(filename => \&mk_name)
);
$proxy->start();
sub mk_name{
return undef;
}
This does noting special, but just test a functionality of "filename" option.
My suggestions are:
$ diff /usr/local/share/perl/5.8.4/HTTP/Proxy/BodyFilter/save.pm*
38,39c38
< # if defined $args{filename} && UNIVERSAL::isa($args{filename}, 'CODE');
< if defined $args{filename} && !UNIVERSAL::isa($args{filename}, 'CODE');
---
> if defined $args{filename} && UNIVERSAL::isa($args{filename}, 'CODE');
62,63c61
< # $file = &{ $self->{_hpbf_save_filename} }->($message);
< $file = $self->{_hpbf_save_filename}->($message);
---
> $file = &{ $self->{_hpbf_save_filename} }->($message);
N.A
|
(3)
]
