[SCM] Debian packaging of libdata-show-perl branch, master, updated. 29b693ab715d75a1de8dea44165bdc6575186ddc

[gregor herrmann]

The following commit has been merged in the master branch:
commit f7d2bd0d8d1960261204e6378d03583eb0ccf287
Author: gregor herrmann <gregoa at debian.org>
Date:   Sun Oct 23 01:34:47 2011 +0200

    Add a patch (taken from upstream developer release) to fix the test suite.
    
    Closes: 646290
    Thanks: Dominic Hargreaves for the bug report

diff --git a/debian/patches/fix-testsuite.patch b/debian/patches/fix-testsuite.patch
new file mode 100644
index 0000000..de05d04
--- /dev/null
+++ b/debian/patches/fix-testsuite.patch
@@ -0,0 +1,108 @@
+Description: fix test suite (long doubles + changed Data::Dump)
+Origin: upstream, http://search.cpan.org/diff/Data-Show-0.001_003-Data-Show-0.001_004.diff
+Bug: https://rt.cpan.org/Ticket/Display.html?id=65886
+Bug-Debian: http://bugs.debian.org/646290
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2011-10-23
+Applied-Upstream: yes, in 0.001_004 developer release.
+
+--- a/t/show.t
++++ b/t/show.t
+@@ -8,6 +8,7 @@
+ my @bar = qw<b a r>;
+ my $baz = 'baz';
+ my $ref = \@bar;
++sub sq;
+ 
+ show %foo;
+ show $/;
+@@ -21,7 +22,7 @@
+ show @bar[do{1..2;}];
+ show 2*3;
+ show 'a+b';
+-show 100 * sqrt length $baz;
++show 100 * sq length $baz;
+ show $foo{q[;{{{]};
+ do {
+     show 'foo' ~~ m/;{\/{/
+@@ -34,62 +35,67 @@
+     is $got[$n], $expected[$n] => ": $expected[$n]";
+ }
+ 
++sub sq {
++    my ($n) = @_;
++    return $n * $n;
++}
++
+ __DATA__
+-======(  %foo  )=============================[ 'show.t', line 12 ]======
++======(  %foo  )=============================[ 'show.t', line 13 ]======
+ 
+     { foo => 1, food => 2, fool => 3, foon => [5 .. 10], foop => 4 }
+ 
+ 
+-======(  $/  )===============================[ 'show.t', line 13 ]======
++======(  $/  )===============================[ 'show.t', line 14 ]======
+ 
+     "\n"
+ 
+ 
+-======(  @bar  )=============================[ 'show.t', line 14 ]======
++======(  @bar  )=============================[ 'show.t', line 15 ]======
+ 
+     ["b", "a", "r"]
+ 
+ 
+-======(  @bar, $baz,  )======================[ 'show.t', line 15 ]======
++======(  @bar, $baz,  )======================[ 'show.t', line 16 ]======
+ 
+     ("b", "a", "r", "baz")
+ 
+ 
+-======(  $baz  )=============================[ 'show.t', line 19 ]======
++======(  $baz  )=============================[ 'show.t', line 20 ]======
+ 
+     "baz"
+ 
+ 
+-======(  $ref  )=============================[ 'show.t', line 20 ]======
++======(  $ref  )=============================[ 'show.t', line 21 ]======
+ 
+     ["b", "a", "r"]
+ 
+ 
+-======(  @bar[do{1..2;}]  )==================[ 'show.t', line 21 ]======
++======(  @bar[do{1..2;}]  )==================[ 'show.t', line 22 ]======
+ 
+     ("a", "r")
+ 
+ 
+-======(  2*3  )==============================[ 'show.t', line 22 ]======
++======(  2*3  )==============================[ 'show.t', line 23 ]======
+ 
+     6
+ 
+ 
+-======(  'a+b'  )============================[ 'show.t', line 23 ]======
++======(  'a+b'  )============================[ 'show.t', line 24 ]======
+ 
+     "a+b"
+ 
+ 
+-======(  100 * sqrt length $baz  )===========[ 'show.t', line 24 ]======
++======(  100 * sq length $baz  )=============[ 'show.t', line 25 ]======
+ 
+-    "173.205080756888"
++    900
+ 
+ 
+-======(  $foo{q[;{{{]}  )====================[ 'show.t', line 25 ]======
++======(  $foo{q[;{{{]}  )====================[ 'show.t', line 26 ]======
+ 
+     undef
+ 
+ 
+-======(  'foo' ~~ m/;{\/{/  )================[ 'show.t', line 27 ]======
++======(  'foo' ~~ m/;{\/{/  )================[ 'show.t', line 28 ]======
+ 
+     ""
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..137a3f7
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+fix-testsuite.patch

-- 
Debian packaging of libdata-show-perl