diff options
Diffstat (limited to 'www/p5-HTTP-Proxy/files')
| -rw-r--r-- | www/p5-HTTP-Proxy/files/5.005-Makefile.PL | 24 | ||||
| -rw-r--r-- | www/p5-HTTP-Proxy/files/5.005-lib::HTTP::Proxy.pm | 11 | ||||
| -rw-r--r-- | www/p5-HTTP-Proxy/files/5.005-lib::HTTP::Proxy::BodyFilter::htmltext.pm | 11 |
3 files changed, 46 insertions, 0 deletions
diff --git a/www/p5-HTTP-Proxy/files/5.005-Makefile.PL b/www/p5-HTTP-Proxy/files/5.005-Makefile.PL new file mode 100644 index 000000000000..82c310ed197b --- /dev/null +++ b/www/p5-HTTP-Proxy/files/5.005-Makefile.PL @@ -0,0 +1,24 @@ +--- Makefile.PL~ Tue Mar 23 17:31:09 2004 ++++ Makefile.PL Tue Mar 23 17:31:28 2004 +@@ -1,5 +1,21 @@ + use ExtUtils::MakeMaker; + ++if ($] < 5.006) { ++ for my $f (<lib/HTTP/Proxy/*/*.pm>) { ++ open F,$f; ++ my @f = <F>; ++ close F; ++ for (@f) { ++ if (/^use base qw\( (.*) \);/o) { ++ $_ = "use $1;\nuse vars '\@ISA';\n\@ISA = qw( $1 );\n"; ++ } ++ } ++ open F, ">$f"; ++ print F @f; ++ close F; ++ } ++} ++ + WriteMakefile( + NAME => 'HTTP::Proxy', + VERSION_FROM => 'lib/HTTP/Proxy.pm', diff --git a/www/p5-HTTP-Proxy/files/5.005-lib::HTTP::Proxy.pm b/www/p5-HTTP-Proxy/files/5.005-lib::HTTP::Proxy.pm new file mode 100644 index 000000000000..7c411926a427 --- /dev/null +++ b/www/p5-HTTP-Proxy/files/5.005-lib::HTTP::Proxy.pm @@ -0,0 +1,11 @@ +--- lib/HTTP/Proxy.pm~ Wed Mar 3 01:15:02 2004 ++++ lib/HTTP/Proxy.pm Tue Mar 23 17:54:31 2004 +@@ -760,7 +760,7 @@ + # proxy the data + $self->log( CONNECT, "($$) CONNECT:", + "$read bytes received from $from" ); +- $peer->syswrite($data); ++ $peer->syswrite($data, length($data)); + } + } + $self->log( CONNECT, "($$) CONNECT:", "End of CONNECT proxyfication"); diff --git a/www/p5-HTTP-Proxy/files/5.005-lib::HTTP::Proxy::BodyFilter::htmltext.pm b/www/p5-HTTP-Proxy/files/5.005-lib::HTTP::Proxy::BodyFilter::htmltext.pm new file mode 100644 index 000000000000..46080aa27c51 --- /dev/null +++ b/www/p5-HTTP-Proxy/files/5.005-lib::HTTP::Proxy::BodyFilter::htmltext.pm @@ -0,0 +1,11 @@ +--- lib/HTTP/Proxy/BodyFilter/htmltext.pm~ Tue Mar 23 17:51:08 2004 ++++ lib/HTTP/Proxy/BodyFilter/htmltext.pm Tue Mar 23 17:53:30 2004 +@@ -66,7 +66,7 @@ + redo SCAN if $self->{js}; # ignore protected + { + local $_ = $1; +- $self->{_filter}(); ++ $self->{_filter}->(); + substr( $$dataref, $pos, length($1), $_ ); + pos($$dataref) = $pos + length($_); + } |