blob: ed8079415c259026ac70751398408879722ba93c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- lib/HTTP/Headers.pm.orig 2015-07-09 00:23:53 UTC
+++ lib/HTTP/Headers.pm
@@ -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-Meta/ && rindex($field, ':') > 1) || !length($field);
unless ($field =~ /^:/) {
$field =~ tr/_/-/ if $TRANSLATE_UNDERSCORE;
|
