Date: Tue, 9 Apr 2013 06:31:08 +0000 (UTC) From: Frederic Culot <culot@FreeBSD.org> To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r315769 - in head/www/p5-HTTP-Message: . files Message-ID: <201304090631.r396V8iO090336@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: culot Date: Tue Apr 9 06:31:08 2013 New Revision: 315769 URL: http://svnweb.freebsd.org/changeset/ports/315769 Log: - 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) Added: head/www/p5-HTTP-Message/files/ head/www/p5-HTTP-Message/files/patch-lib_HTTP_Headers_pm (contents, props changed) Modified: head/www/p5-HTTP-Message/Makefile Modified: head/www/p5-HTTP-Message/Makefile ============================================================================== --- head/www/p5-HTTP-Message/Makefile Tue Apr 9 05:47:54 2013 (r315768) +++ head/www/p5-HTTP-Message/Makefile Tue Apr 9 06:31:08 2013 (r315769) @@ -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> Added: head/www/p5-HTTP-Message/files/patch-lib_HTTP_Headers_pm ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ head/www/p5-HTTP-Message/files/patch-lib_HTTP_Headers_pm Tue Apr 9 06:31:08 2013 (r315769) @@ -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;
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201304090631.r396V8iO090336>