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 <gre...@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 <gre...@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 _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits