Blob Blame History Raw
diff -up CGI-Simple-1.113/lib/CGI/Simple.pm.BAD CGI-Simple-1.113/lib/CGI/Simple.pm
--- CGI-Simple-1.113/lib/CGI/Simple.pm.BAD	2011-01-21 11:29:26.906996002 -0500
+++ CGI-Simple-1.113/lib/CGI/Simple.pm	2011-01-21 11:29:39.805996001 -0500
@@ -1009,7 +1009,7 @@ sub header {
       $header =~ s/$CRLF(\s)/$1/g;
 
       # All other uses of newlines are invalid input.
-      if ( $header =~ m/$CRLF/ ) {
+      if ($header =~ m/$CRLF|\015|\012/) {
         # shorten very long values in the diagnostic
         $header = substr( $header, 0, 72 ) . '...'
          if ( length $header > 72 );