The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
ChangeLog 03
META.json 4041
META.yml 67
Peek.pm 11
t/30_DDump-s.t 531
5 files changed (This is a version diff) 5283
@@ -1,3 +1,6 @@
+0.41	- 2014-09-27, H.Merijn Brand   <h.m.brand@xs4all.nl>
+    * Add alternative test results for 5.21.5 and up (PADMY)
+
 0.40	- 2014-02-27, H.Merijn Brand   <h.m.brand@xs4all.nl>
     * Upped copyright to 2014
     * Guard Perl::Tidy against stupid user options in .perltidyrc
@@ -1,35 +1,17 @@
 {
-   "dynamic_config" : 1,
-   "resources" : {
-      "repository" : {
-         "web" : "http://repo.or.cz/w/Data-Peek.git",
-         "type" : "git",
-         "url" : "http://repo.or.cz/r/Data-Peek.git"
-      },
-      "license" : [
-         "http://dev.perl.org/licenses/"
-      ]
-   },
    "abstract" : "Modified and extended debugging facilities",
-   "author" : [
-      "H.Merijn Brand <h.m.brand@xs4all.nl>"
-   ],
-   "version" : "0.40",
-   "generated_by" : "Author",
-   "release_status" : "stable",
+   "meta-spec" : {
+      "version" : "2",
+      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec"
+   },
    "provides" : {
       "Data::Peek" : {
          "file" : "Peek.pm",
-         "version" : "0.40"
+         "version" : "0.41"
       }
    },
-   "meta-spec" : {
-      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
-      "version" : "2"
-   },
-   "license" : [
-      "perl_5"
-   ],
+   "dynamic_config" : 1,
+   "generated_by" : "Author",
    "name" : "Data-Peek",
    "prereqs" : {
       "build" : {
@@ -38,30 +20,49 @@
          }
       },
       "runtime" : {
-         "requires" : {
-            "DynaLoader" : "0",
-            "Data::Dumper" : "0",
-            "perl" : "5.008"
-         },
          "recommends" : {
-            "perl" : "5.018001",
+            "Data::Dumper" : "2.154",
             "Perl::Tidy" : "0",
-            "Data::Dumper" : "2.145"
-         }
-      },
-      "configure" : {
+            "perl" : "5.020001"
+         },
          "requires" : {
-            "ExtUtils::MakeMaker" : "0"
+            "Data::Dumper" : "0",
+            "perl" : "5.008",
+            "DynaLoader" : "0"
          }
       },
       "test" : {
          "recommends" : {
-            "Test::More" : "1.001002"
+            "Test::More" : "1.001006"
          },
          "requires" : {
-            "Test::NoWarnings" : "0",
-            "Test::More" : "0.88"
+            "Test::More" : "0.88",
+            "Test::NoWarnings" : "0"
+         }
+      },
+      "configure" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : "0"
          }
       }
-   }
+   },
+   "version" : "0.41",
+   "author" : [
+      "H.Merijn Brand <h.m.brand@xs4all.nl>"
+   ],
+   "release_status" : "stable",
+   "resources" : {
+      "repository" : {
+         "web" : "http://repo.or.cz/w/Data-Peek.git",
+         "url" : "http://repo.or.cz/r/Data-Peek.git",
+         "type" : "git"
+      },
+      "license" : [
+         "http://dev.perl.org/licenses/"
+      ],
+      "x_IRC" : "irc://irc.perl.org/#csv"
+   },
+   "license" : [
+      "perl_5"
+   ]
 }
@@ -7,7 +7,7 @@ build_requires:
 configure_requires: 
   ExtUtils::MakeMaker: 0
 dynamic_config: 1
-generated_by: Author, CPAN::Meta::Converter version 2.133380
+generated_by: Author, CPAN::Meta::Converter version 2.142060
 license: perl
 meta-spec: 
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -16,12 +16,12 @@ name: Data-Peek
 provides: 
   Data::Peek: 
     file: Peek.pm
-    version: '0.40'
+    version: '0.41'
 recommends: 
-  Data::Dumper: '2.145'
+  Data::Dumper: '2.154'
   Perl::Tidy: 0
-  Test::More: '1.001002'
-  perl: '5.018001'
+  Test::More: '1.001006'
+  perl: '5.020001'
 requires: 
   Data::Dumper: 0
   DynaLoader: 0
@@ -29,6 +29,7 @@ requires:
   Test::NoWarnings: 0
   perl: '5.008'
 resources: 
+  IRC: irc://irc.perl.org/#csv
   license: http://dev.perl.org/licenses/
   repository: http://repo.or.cz/r/Data-Peek.git
-version: '0.40'
+version: '0.41'
@@ -6,7 +6,7 @@ use warnings;
 use DynaLoader ();
 
 use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );
-$VERSION   = "0.40";
+$VERSION   = "0.41";
 @ISA       = qw( DynaLoader Exporter );
 @EXPORT    = qw( DDumper DTidy DDsort DPeek DDisplay DDump DHexDump
 		 DDual DGrow );
@@ -52,7 +52,7 @@ foreach my $test (@tests) {
 	$dump =~ s/\bUV = /IV = /g	if $] < 5.008;
 	$dump =~ s/,?\bIsUV\b//g	if $] < 5.008;
 
-	my @expect = split m/(?<=\n)\|\n+/ => $expect;
+	my @expect = split m/(?<=\n)\|(?:\s*#.*)?\n+/ => $expect;
 
 	$in   =~ s/[\s\n]+/ /g;
 
@@ -79,11 +79,16 @@ SV = PV(0x****) at 0x****
   PV = 0x**** ""\0
   CUR = 0
   LEN = 8
-|
+| # as of 5.19.3
 SV = PV(0x****) at 0x****
   REFCNT = 1
   FLAGS = (PADMY)
   PV = 0
+| # as of 5.21.5
+SV = PV(0x****) at 0x****
+  REFCNT = 1
+  FLAGS = ()
+  PV = 0
 ==
 0
 --
@@ -94,12 +99,18 @@ SV = PVIV(0x****) at 0x****
   PV = 0x**** ""\0
   CUR = 0
   LEN = 8
-|
+| # as of 5.19.3
 SV = PVIV(0x****) at 0x****
   REFCNT = 1
   FLAGS = (PADMY,IOK,pIOK)
   IV = 0
   PV = 0
+| # as of 5.21.5
+SV = PVIV(0x****) at 0x****
+  REFCNT = 1
+  FLAGS = (IOK,pIOK)
+  IV = 0
+  PV = 0
 ==
 1
 --
@@ -110,12 +121,18 @@ SV = PVIV(0x****) at 0x****
   PV = 0x**** ""\0
   CUR = 0
   LEN = 8
-|
+| # as of 5.19.3
 SV = PVIV(0x****) at 0x****
   REFCNT = 1
   FLAGS = (PADMY,IOK,pIOK)
   IV = 1
   PV = 0
+| # as of 5.21.5
+SV = PVIV(0x****) at 0x****
+  REFCNT = 1
+  FLAGS = (IOK,pIOK)
+  IV = 1
+  PV = 0
 ==
 ""
 --
@@ -126,7 +143,7 @@ SV = PVIV(0x****) at 0x****
   PV = 0x**** ""\0
   CUR = 0
   LEN = 8
-|
+| # as of 5.19.3
 SV = PVIV(0x****) at 0x****
   REFCNT = 1
   FLAGS = (PADMY,POK,IsCOW,pPOK)
@@ -135,3 +152,12 @@ SV = PVIV(0x****) at 0x****
   CUR = 0
   LEN = 8
   COW_REFCNT = 0
+| # as of 5.21.5
+SV = PVIV(0x****) at 0x****
+  REFCNT = 1
+  FLAGS = (POK,IsCOW,pPOK)
+  IV = 1
+  PV = 0x**** ""\0
+  CUR = 0
+  LEN = 8
+  COW_REFCNT = 0