r55203@onn: sartak | 2008-05-07 04:19:48 -0400

Make the header parser regex comply with RFC 2616 git-svn-id: svn://svn.bestpractical.com/HTTP-Server-Simple@12129 e417ac7c-1bcc-0310-8ffa-8f5827389a85
dagolden · May 7, 2008 · ba0b5ba · ba0b5ba
1 parent fd38c1d
commit ba0b5ba
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/HTTP/Server/Simple.pm b/lib/HTTP/Server/Simple.pm
@@ -636,7 +636,7 @@ sub parse_headers {
     while ( sysread( STDIN, my $buff, 1 ) ) {
         if ( $buff eq "\n" ) {
             $chunk =~ s/[\r\l\n\s]+$//;
-            if ( $chunk =~ /^([\w\-]+): (.+)/i ) {
+            if ( $chunk =~ /^([^()<>\@,;:\\"\/\[\]?={} \t]+):\s*(.*)/i ) {
                 push @headers, $1 => $2;
             }
             last if ( $chunk =~ /^$/ );