be6f440e05
X-Meta field names Submitted by: Cyril Nguyen Huu <cyril@ci0.org> (via private email) Obtained from: OpenBSD Approved by: portmgr (bapt)
11 lines
445 B
Text
11 lines
445 B
Text
--- lib/HTTP/Headers.pm.orig 2013-04-08 11:36:07.000000000 -0400
|
|
+++ lib/HTTP/Headers.pm 2013-04-08 11:42:27.000000000 -0400
|
|
@@ -150,7 +150,7 @@
|
|
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;
|