t/04.PurePerl.t started to fail

[eserte]

t/04.PurePerl.t fails since yesterday on all of my smoker systems (various perls, various OS):

Use of uninitialized value $cleaned in substitution (s///) at lib/Mail/DMARC/Policy.pm line 34.
Use of uninitialized value $cleaned in substitution (s///) at lib/Mail/DMARC/Policy.pm line 35.
Use of uninitialized value $cleaned in substitution (s///) at lib/Mail/DMARC/Policy.pm line 36.
Use of uninitialized value $cleaned in substitution (s///) at lib/Mail/DMARC/Policy.pm line 37.
Use of uninitialized value $cleaned in substr at lib/Mail/DMARC/Policy.pm line 38.
Use of uninitialized value $cleaned in split at lib/Mail/DMARC/Policy.pm line 39.
Use of uninitialized value $got in string eq at (eval in cmp_ok) t/04.PurePerl.t line 467.

#   Failed test 'fetch_dmarc_record, 1.2.1 one_one.test.dmarc-qa.com'
#   at t/04.PurePerl.t line 467.
#          got: undef
#     expected: 'reject'
Use of uninitialized value $cleaned in substitution (s///) at lib/Mail/DMARC/Policy.pm line 34.
Use of uninitialized value $cleaned in substitution (s///) at lib/Mail/DMARC/Policy.pm line 35.
Use of uninitialized value $cleaned in substitution (s///) at lib/Mail/DMARC/Policy.pm line 36.
Use of uninitialized value $cleaned in substitution (s///) at lib/Mail/DMARC/Policy.pm line 37.
Use of uninitialized value $cleaned in substr at lib/Mail/DMARC/Policy.pm line 38.
Use of uninitialized value $cleaned in split at lib/Mail/DMARC/Policy.pm line 39.
Use of uninitialized value $got in string eq at (eval in cmp_ok) t/04.PurePerl.t line 474.

#   Failed test 'fetch_dmarc_record, 1.2.3 DNS error subdomain'
#   at t/04.PurePerl.t line 474.
#          got: undef
#     expected: 'none'
Use of uninitialized value $got in string eq at (eval in cmp_ok) t/04.PurePerl.t line 478.

#   Failed test 'fetch_dmarc_record, 1.2.3 DNS srvfail'
#   at t/04.PurePerl.t line 478.
#          got: undef
#     expected: 'none'
Use of uninitialized value $got in string eq at (eval in cmp_ok) t/04.PurePerl.t line 485.

#   Failed test 'fetch_dmarc_record, 1.2.5 CNAME results in Org match'
#   at t/04.PurePerl.t line 485.
#          got: undef
#     expected: 'reject'
Use of uninitialized value $got in string eq at (eval in cmp_ok) t/04.PurePerl.t line 489.

#   Failed test 'fetch_dmarc_record, 1.3.1 unrelated TXT'
#   at t/04.PurePerl.t line 489.
#          got: undef
#     expected: 'reject'
Use of uninitialized value $got in string eq at (eval in cmp_ok) t/04.PurePerl.t line 493.

#   Failed test 'fetch_dmarc_record, 1.3.1 mixed TXT'
#   at t/04.PurePerl.t line 493.
#          got: undef
#     expected: 'none'

#   Failed test 'discover_policy, 1.3.3 multiple DMARC records not allowed'
#   at t/04.PurePerl.t line 232.
# Looks like you failed 7 tests of 116.
t/04.PurePerl.t .............................. 
Dubious, test returned 7 (wstat 1792, 0x700)
Failed 7/116 subtests