use strict; use warnings FATAL => 'all';
use Test::More qw(no_plan);
+my $globbery;
+BEGIN { $globbery = join(', ', <t/globbery/o* t/globbery/t*>) }
{
package Foo;
}
sub globbery {
- <t/globbery/*>;
+ <t/globbery/o* t/globbery/t*>;
}
}
is(
join(', ', Foo::globbery),
- 't/globbery/one, t/globbery/two',
+ $globbery,
'real glob re-installed ok'
);