[libtext-micromason-perl] 01/06: Add patch to fix test failures with Perl 5.22

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libtext-micromason-perl.

commit 52a7db9b946228de0b1ec415f062c55184c57cf3
Author: gregor herrmann <gregoa at debian.org>
Date:   Fri Jun 26 11:52:55 2015 +0200

    Add patch to fix test failures with Perl 5.22
    
    due to different messages.
    
    Closes: #789855
---
 debian/patches/perl-5.22-errors.patch | 38 +++++++++++++++++++++++++++++++++++
 debian/patches/series                 |  1 +
 2 files changed, 39 insertions(+)

diff --git a/debian/patches/perl-5.22-errors.patch b/debian/patches/perl-5.22-errors.patch
new file mode 100644
index 0000000..931b08c
--- /dev/null
+++ b/debian/patches/perl-5.22-errors.patch
@@ -0,0 +1,38 @@
+Description: fix test failure with perl 5.22
+ perl 5.22 errors are a bit more verbose
+ allow old and new variants
+Origin: vendor
+Bug-Debian: https://bugs.debian.org/789855
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2015-06-26
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=105499
+Bug: https://rt.cpan.org/Ticket/Display.html?id=105499
+
+--- a/t/41-line_numbers.t
++++ b/t/41-line_numbers.t
+@@ -28,14 +28,14 @@
+ {
+     ok my $m = Text::MicroMason->new( -LineNumbers );
+     is eval { $m->execute( text=>'Hello <% $__[] %>!', 'world' ) }, undef;
+-    like $@,  qr{requires explicit package name at text template [(]compiled at \S+.t line \d+[)] line 1};
++    like $@,  qr{requires explicit package name (?:\(did you forget to declare "my \@__"\?\) )?at text template [(]compiled at \S+.t line \d+[)] line 1};
+ }
+ 
+ {
+     ok my $m = Text::MicroMason->new( -LineNumbers );
+ 
+     is eval { $m->execute( text=> "\n\n" . 'Hello <% $__[] %>!', 'world' ) }, undef;
+-    like $@, qr{requires explicit package name at text template [(]compiled at \S+.t line \d+[)] line 3};
++    like $@, qr{requires explicit package name (?:\(did you forget to declare "my \@__"\?\) )?at text template [(]compiled at \S+.t line \d+[)] line 3};
+ }
+ 
+ ######################################################################
+@@ -57,7 +57,7 @@
+ {
+     ok my $m = Text::MicroMason->new( -LineNumbers );
+     is eval { $m->execute( inline => 'Hello <% $__[] %>!', 'world' ) }, undef; my $line = __LINE__;
+-    like $@, qr{requires explicit package name at \S+.t line \Q$line\E};
++    like $@, qr{requires explicit package name (?:\(did you forget to declare "my \@__"\?\) )?at \S+.t line \Q$line\E};
+ }
+ 
+ ######################################################################
diff --git a/debian/patches/series b/debian/patches/series
index c3c859b..041e0e5 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1,3 @@
 fix-changes-pod.patch
 test-linenumbers.patch
+perl-5.22-errors.patch

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