Description: add more regexen to test
(test failures in perl 5.18)
Origin: vendor
Bug:
https://rt.cpan.org/Ticket/Display.html?id=85383
Forwarded:
https://rt.cpan.org/Ticket/Display.html?id=85383
Bug-Debian:
http://bugs.debian.org/709795
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2013-05-26
--- a/t/01_normal.t
+++ b/t/01_normal.t
@@ -19,10 +19,10 @@
# test _glob_to_regexp
my $i = 0;
for my $glob (
- [ '*.pl', [ '(?-xism:^.*\.pl$)', '(?^u:^.*\.pl$)' ] ], # 4
- [ '*.h++', [ '(?-xism:^.*\.h\+\+$)', '(?^u:^.*\.h\+\+$)' ] ], # 5
- [ '*.[tar].*', [ '(?-xism:^.*\.[tar]\..*$)', '(?^u:^.*\.[tar]\..*$)' ] ], # 6
- [ '*.?', [ '(?-xism:^.*\..?$)', '(?^u:^.*\..?$)' ] ], # 7
+ [ '*.pl', [ '(?-xism:^.*\.pl$)', '(?^u:^.*\.pl$)', '(?^:^.*\.pl$)' ] ], # 4
+ [ '*.h++', [ '(?-xism:^.*\.h\+\+$)', '(?^u:^.*\.h\+\+$)', '(?^:^.*\.h\+\+$)' ] ], # 5
+ [ '*.[tar].*', [ '(?-xism:^.*\.[tar]\..*$)', '(?^u:^.*\.[tar]\..*$)', '(?^:^.*\.[tar]\..*$)' ] ], # 6
+ [ '*.?', [ '(?-xism:^.*\..?$)', '(?^u:^.*\..?$)', '(?^:^.*\..?$)' ] ], # 7
)
{
my $converted = File::MimeInfo::_glob_to_regexp( $glob->[0] );