Bug#709795: libfile-mimeinfo-perl: FTBFS with perl 5.18: t/01_normal.t

[Dominic Hargreaves]

Source: libfile-mimeinfo-perl
Version: 1.11-1
Severity: important
User: debian-perl at lists.debian.org
Usertags: perl-5.18-transition
Tags: sid jessie
Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=85383

This package FTBFS with perl 5.18 from experimental (in a clean sbuild
session):

#   Failed test 'glob 1 matches an expected value'
#   at t/01_normal.t line 35.
# {
#   'expected_one_of' => [
#     '(?-xism:^.*\\.pl$)',
#     '(?^u:^.*\\.pl$)'
#   ],
#   'got' => '(?^:^.*\\.pl$)'
# }

#   Failed test 'glob 2 matches an expected value'
#   at t/01_normal.t line 35.
# {
#   'expected_one_of' => [
#     '(?-xism:^.*\\.h\\+\\+$)',
#     '(?^u:^.*\\.h\\+\\+$)'
#   ],
#   'got' => '(?^:^.*\\.h\\+\\+$)'
# }

#   Failed test 'glob 3 matches an expected value'
#   at t/01_normal.t line 35.
# {
#   'expected_one_of' => [
#     '(?-xism:^.*\\.[tar]\\..*$)',
#     '(?^u:^.*\\.[tar]\\..*$)'
#   ],
#   'got' => '(?^:^.*\\.[tar]\\..*$)'
# }

#   Failed test 'glob 4 matches an expected value'
#   at t/01_normal.t line 35.
# {
#   'expected_one_of' => [
#     '(?-xism:^.*\\..?$)',
#     '(?^u:^.*\\..?$)'
#   ],
#   'got' => '(?^:^.*\\..?$)'
# }
# Looks like you failed 4 tests of 30.
t/01_normal.t ...... 
Dubious, test returned 4 (wstat 1024, 0x400)
Failed 4/30 subtests 


-- 
Dominic Hargreaves | http://www.larted.org.uk/~dom/
PGP key 5178E2A5 from the.earth.li (keyserver,web,email)