Make Mojo::Headers a little stricter

kraih · kraih · commit b9c98182dc77 · 2021-10-19T00:13:11.000+02:00
diff --git a/lib/Mojo/Headers.pm b/lib/Mojo/Headers.pm
@@ -123,7 +123,7 @@ sub parse {
     }
 
     # New header
-    if ($line =~ /^(\S[^:]*)\s*:\s*(.*)$/) { push @$headers, [$1, $2] }
+    if ($line =~ /^(\S[^:]*):\s*(.*)$/) { push @$headers, [$1, $2] }
 
     # Multi-line
     elsif ($line =~ s/^\s+// && @$headers) { $headers->[-1][1] .= " $line" }

Original file line number	Diff line number	Diff line change
`@@ -123,7 +123,7 @@ sub parse {`
`123`	`123`	`}`
`124`	`124`
`125`	`125`	`# New header`
`126`		`- if ($line =~ /^(\S[^:])\s:\s(.)$/) { push @$headers, [$1, $2] }`
	`126`	`+ if ($line =~ /^(\S[^:]):\s(.*)$/) { push @$headers, [$1, $2] }`
`127`	`127`
`128`	`128`	`# Multi-line`
`129`	`129`	`elsif ($line =~ s/^\s+// && @$headers) { $headers->[-1][1] .= " $line" }`