diff options
| author | culot <culot@FreeBSD.org> | 2013-04-09 14:31:08 +0800 |
|---|---|---|
| committer | culot <culot@FreeBSD.org> | 2013-04-09 14:31:08 +0800 |
| commit | 581c7015d597c2686f7450367fd9255510e894b3 (patch) | |
| tree | bbb8c2bbf37f9981bb69c65f3cbaf951d99dac63 /www | |
| parent | cc3a165f03482aea951bd7364f89e20344a5c623 (diff) | |
| download | freebsd-ports-gnome-581c7015d597c2686f7450367fd9255510e894b3.tar.gz freebsd-ports-gnome-581c7015d597c2686f7450367fd9255510e894b3.tar.zst freebsd-ports-gnome-581c7015d597c2686f7450367fd9255510e894b3.zip | |
- Add a patch to fix the parsing of HTTP messages in case they contain
X-Meta field names
Submitted by: Cyril Nguyen Huu <cyril@ci0.org> (via private email)
Obtained from: OpenBSD
Approved by: portmgr (bapt)
Diffstat (limited to 'www')
| -rw-r--r-- | www/p5-HTTP-Message/Makefile | 5 | ||||
| -rw-r--r-- | www/p5-HTTP-Message/files/patch-lib_HTTP_Headers_pm | 11 |
2 files changed, 15 insertions, 1 deletions
diff --git a/www/p5-HTTP-Message/Makefile b/www/p5-HTTP-Message/Makefile index dcf393d3ad43..bba492fa2477 100644 --- a/www/p5-HTTP-Message/Makefile +++ b/www/p5-HTTP-Message/Makefile @@ -3,7 +3,7 @@ PORTNAME= HTTP-Message PORTVERSION= 6.06 -PORTREVISION= 1 +PORTREVISION= 2 CATEGORIES= www perl5 MASTER_SITES= CPAN PKGNAMEPREFIX= p5- @@ -32,4 +32,7 @@ MAN3= HTTP::Config.3 \ HTTP::Response.3 \ HTTP::Status.3 +post-patch: + @${RM} ${WRKSRC}/lib/HTTP/Headers.pm.orig + .include <bsd.port.mk> diff --git a/www/p5-HTTP-Message/files/patch-lib_HTTP_Headers_pm b/www/p5-HTTP-Message/files/patch-lib_HTTP_Headers_pm new file mode 100644 index 000000000000..4591c84f6acf --- /dev/null +++ b/www/p5-HTTP-Message/files/patch-lib_HTTP_Headers_pm @@ -0,0 +1,11 @@ +--- 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; |