From: H.Merijn Brand <merijn@lx09.procura.nl>
Date: Tue, 29 May 2012 06:36:22 +0000 (+0200)
Subject: Backslashed { in regex in test to satisfy perl-5.17
X-Git-Tag: v0.38
X-Git-Url: https://repo.or.cz/w/Data-Peek.git/commitdiff_plain/69e321ea9caab3c14526907f3790d0eca8cc65de

Backslashed { in regex in test to satisfy perl-5.17
---

diff --git a/ChangeLog b/ChangeLog
index 0f16e45..21b134c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,6 @@
+0.38	2012-05-29, H.Merijn Brand   <h.m.brand@xs4all.nl>
+    * Backslashed { in regex in test to satisfy perl-5.17
+
 0.37	2012-04-16, H.Merijn Brand   <h.m.brand@xs4all.nl>
     * Upped copyright to 2012
     * Allow length for DHexDump ()
diff --git a/Peek.pm b/Peek.pm
index 8c884e8..6194173 100644
--- a/Peek.pm
+++ b/Peek.pm
@@ -6,7 +6,7 @@ use warnings;
 use DynaLoader ();
 
 use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );
-$VERSION   = "0.37";
+$VERSION   = "0.38";
 @ISA       = qw( DynaLoader Exporter );
 @EXPORT    = qw( DDumper DTidy DDsort DPeek DDisplay DDump DHexDump
 		 DDual DGrow );
diff --git a/sandbox/genMETA.pl b/sandbox/genMETA.pl
index 8a5d65f..deb8c18 100755
--- a/sandbox/genMETA.pl
+++ b/sandbox/genMETA.pl
@@ -59,7 +59,7 @@ test_requires:
     Test::More:          0.88
     Test::NoWarnings:    0
 recommends:
-    perl:                5.014002
+    perl:                5.016000
     Perl::Tidy:          0
     Test::More:          0.98
 resources:
diff --git a/sandbox/genMETA.pm b/sandbox/genMETA.pm
index b5d96b6..490cffd 100644
--- a/sandbox/genMETA.pm
+++ b/sandbox/genMETA.pm
@@ -10,7 +10,7 @@ use Carp;
 
 use List::Util qw( first );
 use Encode qw( encode decode );
-use Test::YAML::Meta::Version;
+use Test::CPAN::Meta::YAML::Version;
 use Test::MinimumVersion;
 use Test::More ();
 use Parse::CPAN::Meta;
@@ -207,7 +207,7 @@ sub check_yaml
 
     $self->{verbose} and print Dump $h;
 
-    my $t = Test::YAML::Meta::Version->new (yaml => $h);
+    my $t = Test::CPAN::Meta::YAML::Version->new (yaml => $h);
     $t->parse () and
 	croak join "\n", "Test::YAML::Meta reported failure:", $t->errors, "";
 
diff --git a/t/20_DPeek.t b/t/20_DPeek.t
index 06ffa51..e908de9 100644
--- a/t/20_DPeek.t
+++ b/t/20_DPeek.t
@@ -69,7 +69,7 @@ like (DPeek ($1), qr'^PVMG\("',			' $1');
   SKIP: {
       $] <= 5.008001 and skip "UTF8 tests useless in this ancient perl version", 1;
       $VAR = "a\x0a\x{20ac}";
-      like (DPeek ($VAR), qr'^PVIV\("a\\(n|12)\\342\\202\\254"\\0\) \[UTF8 "a\\?n\\x{20ac}"\]',
+      like (DPeek ($VAR), qr'^PVIV\("a\\(n|12)\\342\\202\\254"\\0\) \[UTF8 "a\\?n\\x\{20ac}"\]',
 						  ' $VAR "a\x0a\x{20ac}"');
       }
   $VAR = sub { "VAR" };