Backslashed { in regex in test to satisfy perl-5.17v0.38
authorH.Merijn Brand <merijn@lx09.procura.nl>
Tue, 29 May 2012 06:36:22 +0000 (29 08:36 +0200)
committerH.Merijn Brand <merijn@lx09.procura.nl>
Tue, 29 May 2012 06:36:22 +0000 (29 08:36 +0200)
ChangeLog
Peek.pm
sandbox/genMETA.pl
sandbox/genMETA.pm
t/20_DPeek.t

index 0f16e45..21b134c 100644 (file)
--- 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 (file)
--- 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 );
index 8a5d65f..deb8c18 100755 (executable)
@@ -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:
index b5d96b6..490cffd 100644 (file)
@@ -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, "";
 
index 06ffa51..e908de9 100644 (file)
@@ -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" };