[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 d55f2de4a6e9ea025bc0a8c5764e90c2f4c77f45
Author: Toby Inkster <mail at tobyinkster.co.uk>
Date:   Fri Jul 19 21:36:22 2013 +0100

    more 5.6 compat fixes

diff --git a/t/stdlib-tied.t b/t/stdlib-tied.t
index 87361e7..2cfa15b 100644
--- a/t/stdlib-tied.t
+++ b/t/stdlib-tied.t
@@ -33,7 +33,7 @@ my $a = do {
 	package MyTie::Array;
 	require Tie::Array;
 	our @ISA = qw(Tie::StdArray);
-	tie my @A, __PACKAGE__;
+	tie my(@A), __PACKAGE__;
 	\@A;
 };
 
@@ -41,7 +41,7 @@ my $h = do {
 	package MyTie::Hash;
 	require Tie::Hash;
 	our @ISA = qw(Tie::StdHash);
-	tie my %H, __PACKAGE__;
+	tie my(%H), __PACKAGE__;
 	\%H
 };
 
diff --git a/t/stdlib.t b/t/stdlib.t
index bd874b6..a2b27b5 100644
--- a/t/stdlib.t
+++ b/t/stdlib.t
@@ -159,20 +159,24 @@ like(
 	qq{Ref[{}] is not a valid type constraint},
 );
 
-ok(
-	!!Num->check("Inf") == !Types::Standard::STRICTNUM,
-	"'Inf' passes Num unless Types::Standard::STRICTNUM",
-);
-
-ok(
-	!!Num->check("-Inf") == !Types::Standard::STRICTNUM,
-	"'-Inf' passes Num unless Types::Standard::STRICTNUM",
-);
-
-ok(
-	!!Num->check("Nan") == !Types::Standard::STRICTNUM,
-	"'Nan' passes Num unless Types::Standard::STRICTNUM",
-);
+SKIP: {
+	skip "requires Perl 5.8", 3 if $] < 5.008;
+	
+	ok(
+		!!Num->check("Inf") == !Types::Standard::STRICTNUM,
+		"'Inf' passes Num unless Types::Standard::STRICTNUM",
+	);
+
+	ok(
+		!!Num->check("-Inf") == !Types::Standard::STRICTNUM,
+		"'-Inf' passes Num unless Types::Standard::STRICTNUM",
+	);
+
+	ok(
+		!!Num->check("Nan") == !Types::Standard::STRICTNUM,
+		"'Nan' passes Num unless Types::Standard::STRICTNUM",
+	);
+}
 
 ok(
 	!!Num->check("0.") == !Types::Standard::STRICTNUM,

-- 
libtype-tiny-perl Debian packaging