12 lines
440 B
Text
12 lines
440 B
Text
|
--- lib/HTTP/Headers.pm.orig Thu Jul 9 01:23:53 2015
|
||
|
|
+++ lib/HTTP/Headers.pm Fri Jul 10 21:54:13 2015
|
||
|
|
@@ -151,7 +151,7 @@ sub _header
|
||
|
|
my($self, $field, $val, $op) = @_;
|
||
|
|
|
||
|
|
Carp::croak("Illegal field name '$field'")
|
||
|
|
- if rindex($field, ':') > 1 || !length($field);
|
||
|
|
+ if ( $field !~ /^X-\w/ && rindex($field, ':') > 1) || !length($field);
|
||
|
|
|
||
|
|
unless ($field =~ /^:/) {
|
||
|
|
$field =~ tr/_/-/ if $TRANSLATE_UNDERSCORE;
|