Go to:
Gentoo Home
Documentation
Forums
Lists
Bugs
Planet
Store
Wiki
Get Gentoo!
Gentoo's Bugzilla – Attachment 317588 Details for
Bug 425196
net-proxy/adzapper needs flush.pl (removed from dev-lang/perl-5.16.0)
Home
|
New
–
[Ex]
|
Browse
|
Search
|
Privacy Policy
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Convert flush.pl usage to IO::Handle flush
adzapper-20080508-flush.patch (text/plain), 2.39 KB, created by
Brennan Shacklett
on 2012-07-08 17:01:58 UTC
(
hide
)
Description:
Convert flush.pl usage to IO::Handle flush
Filename:
MIME Type:
Creator:
Brennan Shacklett
Created:
2012-07-08 17:01:58 UTC
Size:
2.39 KB
patch
obsolete
>--- adzap-orig/scripts/squid_redirect 2012-07-07 23:52:08.478021584 -0700 >+++ adzap/scripts/squid_redirect 2012-07-08 09:26:38.830003530 -0700 >@@ -31,7 +31,7 @@ > > use POSIX ":sys_wait_h"; > use Socket; >-require 'flush.pl'; >+use IO::Handle; > > $::IOSIZE=1024; > >@@ -232,7 +232,7 @@ > { > if (defined $::LogFile) > { print LOGFILE $_; >- flush(LOGFILE); >+ LOGFILE->flush();; > } > chomp; > >@@ -259,7 +259,7 @@ > } > } > >- flush(STDOUT); >+ STDOUT->flush(); > } > > exit 0; >@@ -789,14 +789,16 @@ > } > > # dispatch request and headers >- printflush(GCHILD_WRITE,"$method $uri $v1 $v2\n") >+ print GCHILD_WRITE "$method $uri $v1 $v2\n" > || die "tell grandchild the request: $!"; >+ GCHILD_WRITE->flush(); > > print PROXY "$method $uri HTTP/$v1.$v2\r\n"; > for my $H (@hdrs) > { print PROXY $H->[0], ":", $H->[1], "\r\n"; > } >- printflush(PROXY,"\r\n"); >+ print PROXY "\r\n"; >+ PROXY->flush(); > ##warn "[$$]: sent rq to proxy\n"; > > proxy_copybody(CONN,PROXY,$method,$persist,\@hdrs) >@@ -965,8 +967,9 @@ > } > > warn "[$child:$$]: pass response to parent\n"; >- printflush(TOCHILD,($persist ? PERSIST : CLOSE)." $code $info") >+ print TOCHILD ($persist ? PERSIST : CLOSE)." $code $info" > || die "[$child:$$]: print(TOCHILD) fails: $!"; >+ TOCHILD->flush(); > warn "[$child:$$]: told parent, passing response to client\n"; > > # copy to child >@@ -974,7 +977,8 @@ > for my $H (@hdrs) > { print CONN $H->[0], ":", $H->[1], "\r\n"; > } >- printflush(CONN,"\r\n"); >+ print CONN "\r\n"; >+ CONN->flush(); > > # see RFC2616 section 10 > if ( >@@ -1050,11 +1054,13 @@ > ) > { > ##warn "[$$]: read ".length($_)." bytes of request body\n"; >- if (! printflush($to,$_)) >- { warn "$::cmd: [$$]: printflush($to,..): $!"; >+ $to->autoflush(1); >+ if (! print $to $_) >+ { warn "$::cmd: [$$]: print $to ..): $!"; > $ok=0; > last COPY; > } >+ $to->autoflush(0); > $cl-=length if defined $cl; > } > warn "[$$]: finished unchunked body, ok=$ok"; >@@ -1083,10 +1089,10 @@ > { print $to $_; > $chunksize-=length; > } >- flush($to); >+ $to->flush(); > } > >- flush($to); >+ $to->flush(); > > # pass trailer headers > while (defined($_=<$from>) && !/^\r?\n/) >@@ -1096,7 +1102,7 @@ > { ##warn "[$$]: final trailer: $_"; > print $to $_; > } >- flush($to); >+ $to->flush(); > > return (1,""); > }
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
Attachments on
bug 425196
:
317588
|
317590
|
325354
|
325366
|
325368
|
325396
|
325408