ports/89750: Update port: www/p5-HTML-Mason (fix utf-8 escaping)

[Denis Shaposhnikov]

>Number:         89750
>Category:       ports
>Synopsis:       Update port: www/p5-HTML-Mason (fix utf-8 escaping)
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          maintainer-update
>Submitter-Id:   current-users
>Arrival-Date:   Wed Nov 30 09:30:02 GMT 2005
>Closed-Date:
>Last-Modified:
>Originator:     Denis Shaposhnikov
>Release:        FreeBSD 7.0-CURRENT i386
>Organization:
>Environment:
System: FreeBSD neva.vlink.ru 7.0-CURRENT FreeBSD 7.0-CURRENT #1: Mon Nov 21 13:07:34 MSK 2005 dsh at neva.vlink.ru:/var/FreeBSD/obj/var/FreeBSD/src/sys/NEVA i386


	
>Description:

Add the patch from PR ports/89627 that fixes incorrect escaping of
UTF-8 strings. Thanks to Eugene Gladchenko.

Please, close ports/89627.

>How-To-Repeat:
	
>Fix:

diff -Nru p5-HTML-Mason.orig/Makefile p5-HTML-Mason/Makefile
--- p5-HTML-Mason.orig/Makefile	Wed Nov 30 12:15:10 2005
+++ p5-HTML-Mason/Makefile	Wed Nov 30 12:12:47 2005
@@ -7,6 +7,7 @@
 
 PORTNAME=	HTML-Mason
 PORTVERSION=	1.31.0.1
+PORTREVISION=	1
 CATEGORIES=	www perl5
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
 MASTER_SITE_SUBDIR=	HTML
diff -Nru p5-HTML-Mason.orig/distinfo p5-HTML-Mason/distinfo
--- p5-HTML-Mason.orig/distinfo	Wed Nov 30 12:15:10 2005
+++ p5-HTML-Mason/distinfo	Wed Nov 30 12:15:37 2005
@@ -1,2 +1,3 @@
 MD5 (HTML-Mason-1.3101.tar.gz) = 4904681296efeb9c58bf0d9926d37407
+SHA256 (HTML-Mason-1.3101.tar.gz) = 0837a43aa08f783b15d61f8068655564172588ceb9183608316291d258c104c7
 SIZE (HTML-Mason-1.3101.tar.gz) = 386074
diff -Nru p5-HTML-Mason.orig/files/patch-Escapes.pm p5-HTML-Mason/files/patch-Escapes.pm
--- p5-HTML-Mason.orig/files/patch-Escapes.pm	Thu Jan  1 03:00:00 1970
+++ p5-HTML-Mason/files/patch-Escapes.pm	Wed Nov 30 12:12:09 2005
@@ -0,0 +1,10 @@
+--- lib/HTML/Mason/Escapes.pm.orig	Tue Aug 23 19:18:12 2005
++++ lib/HTML/Mason/Escapes.pm	Wed Nov 30 12:10:55 2005
+@@ -37,6 +37,7 @@
+ {
+     return unless defined ${ $_[0] };
+ 
++    use bytes;
+     ${ $_[0] } =~ s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
+ }
+ 
>Release-Note:
>Audit-Trail:
>Unformatted: