Bug#711258: libtemplate-alloy-perl: FTBFS with perl 5.18: test failures

[Damyan Ivanov]

Control: tags -1 confirmed

I was able to reproduce this. When running the t/05_tt_base.t test 
with prove -vl, it shows the following:

ok 782 - Line 1178   "[% USE FooTest %]one" => "one"
not ok 783 - Line 1179   "[% USE FooTest2 %]one"
undef error - Can't locate object method "load" via package "MyTestPlugin::FooTest2" (perhaps you forgot to load "MyTestPlugin::FooTest2"?) at /mnt/libtemplate-alloy-perl/lib/Template/Alloy/Play.pm line 849.

#   Failed test 'Line 1179   "[% USE FooTest2 %]one"'
#   at t/05_tt_base.t line 70.
# Was:

# Should've been:
one
[
    ['USE', 2, 16, [undef, 'FooTest2', [[[undef, '{}'], 0]]]],
    'one',
]
# Looks like you planned 3068 tests but ran 783.

so it seems something is wrong with the namespace tricks the test is 
doing around line 80.

Trying to reproduce it in a oneliner sshows no problems, eg:

 $ perl -we'use strict;
 local $INC{"R/A.pm"} = local $INC{"B.pm"} = $0;
 { package R::A; sub load { 1 } }
 { package B; use base qw(R::A); }
 print B->load, "\n"'
 1
 $

Strangely enough the same result is achieved when "local" is removed 
and when the whole %INC-mangling line is removed.

Any ideas?
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 836 bytes
Desc: Digital signature
URL: <http://lists.alioth.debian.org/pipermail/pkg-perl-maintainers/attachments/20130812/f54f3ade/attachment-0001.sig>