[SCM] libtype-tiny-perl Debian packaging branch, master, updated. debian/0.016-1-48-ga7f6748

[Toby Inkster]

The following commit has been merged in the master branch:
commit 1f520b98cc012739cd56b6f3d303d7610734141f
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date:   Fri Jul 19 22:35:33 2013 +0100

    regexps that cause problesm on Perl 5.6

diff --git a/lib/Type/Coercion.pm b/lib/Type/Coercion.pm
index 96961be..7698504 100644
--- a/lib/Type/Coercion.pm
+++ b/lib/Type/Coercion.pm
@@ -64,7 +64,7 @@ sub new
 	{
 		# First try a fast ASCII-only expression, but fall back to Unicode
 		$self->name =~ /^[A-Z][A-Za-z0-9_]+$/sm
-			or eval q( $self->name =~ /^\p{Lu}[\p{L}0-9_]+$/sm )
+			or eval q( use 5.008; $self->name =~ /^\p{Lu}[\p{L}0-9_]+$/sm )
 			or _croak '"%s" is not a valid coercion name', $self->name;
 	}
 	
diff --git a/lib/Type/Tiny.pm b/lib/Type/Tiny.pm
index a28dc61..2a9257d 100644
--- a/lib/Type/Tiny.pm
+++ b/lib/Type/Tiny.pm
@@ -98,7 +98,7 @@ sub new
 	{
 		# First try a fast ASCII-only expression, but fall back to Unicode
 		$params{name} =~ /^[A-Z][A-Za-z0-9_]+$/sm
-			or eval q( $params{name} =~ /^\p{Lu}[\p{L}0-9_]+$/sm )
+			or eval q( use 5.008; $params{name} =~ /^\p{Lu}[\p{L}0-9_]+$/sm )
 			or _croak '"%s" is not a valid type name', $params{name};
 	}
 	

-- 
libtype-tiny-perl Debian packaging