[libtest-simple-perl] 01/06: Add patch to fix test failure with perl 5.18.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libtest-simple-perl.

commit 8deb263b0154fdb34b29ebfd9ffd74571d7daa80
Author: gregor herrmann <gregoa at debian.org>
Date:   Mon Aug 12 15:58:08 2013 +0200

    Add patch to fix test failure with perl 5.18.
    
    Taken from perl git.
    
    Closes: #711268
---
 debian/patches/perl5.18.tests |   72 +++++++++++++++++++++++++++++++++++++++++
 debian/patches/series         |    1 +
 2 files changed, 73 insertions(+)

diff --git a/debian/patches/perl5.18.tests b/debian/patches/perl5.18.tests
new file mode 100644
index 0000000..b9ff283
--- /dev/null
+++ b/debian/patches/perl5.18.tests
@@ -0,0 +1,72 @@
+Origin: perl.git, http://perl5.git.perl.org/perl.git/commit/7156e69abfd37267e85105c6ec0c449ce4e41523
+Bug-Debian: http://bugs.debian.org/711268
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2013-08-12
+Applied-Upstream: Test-Simple 0.98_04
+Comment: we're taking only the part concerning the test file here
+
+
+From 7156e69abfd37267e85105c6ec0c449ce4e41523 Mon Sep 17 00:00:00 2001
+From: Father Chrysostomos <sprout at cpan.org>
+Date: Thu, 20 Sep 2012 08:56:38 -0700
+Subject: [PATCH] [perl #105922] Allow any string before ->meth
+MIME-Version: 1.0
+Content-Type: text/plain; charset=utf8
+Content-Transfer-Encoding: 8bit
+
+The rules for filtering out what do not look like package names are
+not logical and disallow valid things like "::main", while allowing
+q"_#@*$!@*^(".
+
+This commit simply lets any non-empty string be used as a package
+name.  If it is a typo, you'll get an error anyway.  This allows
+autobox-style calls like "3foo"->CORE::uc, or even "3foo"->uc if you
+set up @ISA first.
+
+I made an exception for the empty string because it messes up caches
+somehow and causes subsequent method calls all to be called on the
+main package.  I haven't looked into that yet.  I don't know whether
+it's worth it.
+
+The changes to the tests in cpan/Test-Simple have been submit-
+ted upstream.
+---
+ cpan/Test-Simple/t/fail-more.t | 12 ++++++------
+ pp_hot.c                       | 16 ++++++----------
+ t/op/method.t                  | 14 +++++++++++++-
+ t/run/fresh_perl.t             |  2 +-
+ 4 files changed, 26 insertions(+), 18 deletions(-)
+
+diff --git a/cpan/Test-Simple/t/fail-more.t b/cpan/Test-Simple/t/fail-more.t
+index 0fc6a71..72b5a51 100644
+--- a/t/fail-more.t
++++ b/t/fail-more.t
+@@ -248,22 +248,22 @@ ERR
+ 
+ #line 248
+ isa_ok(42,    "Wibble", "My Wibble");
+-out_ok( <<OUT, <<ERR );
++out_like( <<OUT, <<ERR );
+ not ok - My Wibble isa Wibble
+ OUT
+ #   Failed test 'My Wibble isa Wibble'
+ #   at $0 line 248.
+-#     My Wibble isn't a class or reference
++#     My Wibble isn't a .*
+ ERR
+ 
+ #line 248
+ isa_ok(42,    "Wibble");
+-out_ok( <<OUT, <<ERR );
+-not ok - The thing isa Wibble
++out_like( <<OUT, <<ERR );
++not ok - The (thing|class) isa Wibble
+ OUT
+-#   Failed test 'The thing isa Wibble'
++#   Failed test 'The (thing|class) isa Wibble'
+ #   at $0 line 248.
+-#     The thing isn't a class or reference
++#     The (thing|class) isn't a .*
+ ERR
+ 
+ #line 258
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..1765f5d
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+perl5.18.tests

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtest-simple-perl.git