diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-10-29 00:34:17 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-29 00:34:17 -0700 |
| commit | ac0dcfaef6347918fec76edc4f9ee82e20f739b0 (patch) | |
| tree | 5b3c1ce82616c8ffc382930e335ef97314fb0ea6 /ext/File-Glob/t/basic.t | |
| parent | 6a6066037df54aa9beec0713dc9647c124733d10 (diff) | |
| download | perl-ac0dcfaef6347918fec76edc4f9ee82e20f739b0.tar.gz | |
Oops: Fix Glob.xs assertion failure
This happens under :bsd_glob when <>/glob is called in list context.
Diffstat (limited to 'ext/File-Glob/t/basic.t')
| -rw-r--r-- | ext/File-Glob/t/basic.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/File-Glob/t/basic.t b/ext/File-Glob/t/basic.t index 3fab895966..bcd9999621 100644 --- a/ext/File-Glob/t/basic.t +++ b/ext/File-Glob/t/basic.t @@ -10,7 +10,7 @@ BEGIN { } } use strict; -use Test::More tests => 48; +use Test::More tests => 49; BEGIN {use_ok('File::Glob', ':glob')}; use Cwd (); @@ -281,3 +281,4 @@ for (qw[ } is <a b>, 'a b', '<a b> under :bsd_glob'; is <"a" "b">, '"a" "b"', '<"a" "b"> under :bsd_glob'; +is_deeply [<a b>], [q<a b>], '<> in list context under :bsd_glob'; |