Changeset 17753

Timestamp:

08/17/08 12:25:01 (5 years ago)

Author:

tokuhirom

Message:

refactoring

Files:

• lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/Standalone.pm (modified) (2 diffs)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/Standalone.pm

@@ -139 +139 @@
     while (1) {
         # FIXME refactor an HTTP push parser
-        my($path, $query_string) = split /\?/, $uri, 2;
-
-        my $headers;
 
         # Parse headers
         # taken from HTTP::Message, which is unfortunately not really reusable
-        if ($protocol >= 1) {
-            my @hdr;
-            while ( length(my $line = $self->_get_line($remote)) ) {
-                if ($line =~ s/^([^\s:]+)[ \t]*: ?(.*)//) {
-                    push(@hdr, $1, $2);
+        my $headers = do {
+            if ($protocol >= 1) {
+                my @hdr;
+                while ( length(my $line = $self->_get_line($remote)) ) {
+                    if ($line =~ s/^([^\s:]+)[ \t]*: ?(.*)//) {
+                        push(@hdr, $1, $2);
+                    }
+                    elsif (@hdr && $line =~ s/^([ \t].*)//) {
+                        $hdr[-1] .= "\n$1";
+                    } else {
+                        last;
+                    }
                 }
-                elsif (@hdr && $line =~ s/^([ \t].*)//) {
-                    $hdr[-1] .= "\n$1";
-                } else {
-                    last;
-                }
+                HTTP::Headers->new(@hdr);
+            } else {
+                HTTP::Headers->new;
             }
-            $headers = HTTP::Headers->new(@hdr);
-        } else {
-            $headers = HTTP::Headers->new;
-        }
+        };
 
         # Pass flow control to HTTP::Engine
@@ -204 +203 @@
     }
 
-    $self->request_builder->_io_read($remote, my $buf, 4096) if $sel->can_read(0); # IE bk
+    $self->request_builder->_io_read($remote, my $buf, 4096) if $sel->can_read(0); # IE hack
     close $remote;
 }