Bug#789855: libtext-micromason-perl: FTBFS with perl 5.22: test failures

[Dominic Hargreaves]

Source: libtext-micromason-perl
Version: 2.13-3
Severity: important
User: debian-perl at lists.debian.org
Usertags: perl-5.22-transition
Tags: sid stretch upstream

This package FTBFS with perl 5.22 (currently in experimental):

#   Failed test at t/41-line_numbers.t line 31.
#                   'MicroMason compilation failed: Global symbol "@__" requires
 explicit package name (did you forget to declare "my @__"?) at text template (compiled at t/41-line_numbers.t line 30) line 1.
# syntax error at text template (compiled at t/41-line_numbers.t line 30) line 1, near "[]"
# 
#    0  # line 1 "text template (compiled at t/41-line_numbers.t line 30)"
#    1  sub { 
#    2  local $SIG{__DIE__} = sub { die "MicroMason execution failed: ", @_ };
#    3  my @OUT; my $_out = sub {push @OUT, @_};
#    4  my %ARGS = @_ if ($#_ % 2);
#    5  # line 0 "text template (compiled at t/41-line_numbers.t line 30)"
#    6  push @OUT,( qq(Hello\ ) );
#    7  # line 0 "text template (compiled at t/41-line_numbers.t line 30)"
#    8  push @OUT,( "".do{
#    9   $__[] 
#   10  } );
#   11  # line 0 "text template (compiled at t/41-line_numbers.t line 30)"
#   12  push @OUT,( qq(\!) );
#   13  join("", @OUT)
#   14  }
# ** Please use Text::MicroMason->new(-LineNumbers) for better diagnostics!
#  at /«PKGBUILDDIR»/blib/lib/Text/MicroMason/Base.pm line 94.
#       Text::MicroMason::Base::execute(Text::MicroMason::Base::AUTO::LineNumbers_HTMLMason=HASH(0x29e4170), "text", "Hello <% \$__[] %>!", "world") called at t/41-line_numbers.t line 30
#       eval {...} called at t/41-line_numbers.t line 30
# '
#     doesn't match '(?^:requires explicit package name at text template [(]compiled at \S+.t line \d+[)] line 1)'

#   Failed test at t/41-line_numbers.t line 38.
#                   'MicroMason compilation failed: Global symbol "@__" requires explicit package name (did you forget to declare "my @__"?) at text template (compiled at t/41-line_numbers.t line 37) line 3.
# syntax error at text template (compiled at t/41-line_numbers.t line 37) line 3, near "[]"
# 
#    0  # line 1 "text template (compiled at t/41-line_numbers.t line 37)"
#    1  sub { 
#    2  local $SIG{__DIE__} = sub { die "MicroMason execution failed: ", @_ };
#    3  my @OUT; my $_out = sub {push @OUT, @_};
#    4  my %ARGS = @_ if ($#_ % 2);
#    5  # line 0 "text template (compiled at t/41-line_numbers.t line 37)"
#    6  push @OUT,( qq(\
#    7  \
#    8  Hello\ ) );
#    9  # line 2 "text template (compiled at t/41-line_numbers.t line 37)"
#   10  push @OUT,( "".do{
#   11   $__[] 
#   12  } );
#   13  # line 2 "text template (compiled at t/41-line_numbers.t line 37)"
#   14  push @OUT,( qq(\!) );
#   15  join("", @OUT)
#   16  }
# ** Please use Text::MicroMason->new(-LineNumbers) for better diagnostics!
#  at /«PKGBUILDDIR»/blib/lib/Text/MicroMason/Base.pm line 94.
#       Text::MicroMason::Base::execute(Text::MicroMason::Base::AUTO::LineNumbers_HTMLMason=HASH(0x29e4548), "text", "\x{a}\x{a}Hello <% \$__[] %>!", "world") called at t/41-line_numbers.t line 37
#       eval {...} called at t/41-line_numbers.t line 37
# '
#     doesn't match '(?^:requires explicit package name at text template [(]compiled at \S+.t line \d+[)] line 3)'

#   Failed test at t/41-line_numbers.t line 60.
#                   'MicroMason compilation failed: Global symbol "@__" requires explicit package name (did you forget to declare "my @__"?) at t/41-line_numbers.t line 59.
# syntax error at t/41-line_numbers.t line 59, near "[]"
# 
#    0  # line 1 "text template (compiled at t/41-line_numbers.t line 59)"
#    1  sub { 
#    2  local $SIG{__DIE__} = sub { die "MicroMason execution failed: ", @_ };
#    3  my @OUT; my $_out = sub {push @OUT, @_};
#    4  my %ARGS = @_ if ($#_ % 2);
#    5  # line 58 "t/41-line_numbers.t"
#    6  push @OUT,( qq(Hello\ ) );
#    7  # line 58 "t/41-line_numbers.t"
#    8  push @OUT,( "".do{
#    9   $__[] 
#   10  } );
#   11  # line 58 "t/41-line_numbers.t"
#   12  push @OUT,( qq(\!) );
#   13  join("", @OUT)
#   14  }
# ** Please use Text::MicroMason->new(-LineNumbers) for better diagnostics!
#  at /«PKGBUILDDIR»/blib/lib/Text/MicroMason/Base.pm line 94.
#       Text::MicroMason::Base::execute(Text::MicroMason::Base::AUTO::LineNumbers_HTMLMason=HASH(0x2a22f08), "inline", "Hello <% \$__[] %>!", "world") called at t/41-line_numbers.t line 59
#       eval {...} called at t/41-line_numbers.t line 59
# '
#     doesn't match '(?^:requires explicit package name at \S+.t line 59)'
# Looks like you failed 3 tests of 37.
t/41-line_numbers.t ......... 

...

Test Summary Report
-------------------
t/41-line_numbers.t       (Wstat: 768 Tests: 37 Failed: 3)
  Failed tests:  12, 15, 26
  Non-zero exit status: 3
Files=39, Tests=1308,  8 wallclock secs ( 0.21 usr  0.27 sys +  2.19 cusr  0.36 
csys =  3.03 CPU)
Result: FAIL

Note: this looks similar, but not identical, to
<https://rt.cpan.org/Public/Bug/Display.html?id=92771>

This bug will become release critical nearer the time of the perl 5.22
migration, expected during the (northern hemisphere) summer.

Cheers,
Dominic.