Tetst fails on Perl 5.37.4

[azumakuniyuki]

• http://www.cpantesters.org/cpan/report/d49e1af4-4157-11ed-af16-c84d753c3a36

#   Failed test '->handle->close()'
#   at t/023-mail-stdin.t line 39.
# Looks like you failed 1 test of 13.
t/023-mail-stdin.t ............. 
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/13 subtests 

[azumakuniyuki]

http://www.cpantesters.org/cpan/report/a0412418-49fe-11ed-b08f-a5e1b655df6e

#   Failed test '->handle->close()'
#   at t/023-mail-stdin.t line 39.
# Looks like you failed 1 test of 13.
t/023-mail-stdin.t ............. 
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/13 subtests 

[azumakuniyuki]

http://www.cpantesters.org/cpan/report/eb7fbeb2-546c-11ed-ac00-78c860ca80ec

t/022-mail-maildir.t ........... ok

#   Failed test '->handle->close()'
#   at t/023-mail-stdin.t line 39.
# Looks like you failed 1 test of 13.
t/023-mail-stdin.t ............. 
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/13 subtests 
t/024-mail-memory.t ............ ok

[azumakuniyuki]

http://www.cpantesters.org/cpan/report/4c3721d4-5763-11ed-8a1d-3dcb3994ee8b

t/021-mail-mbox.t .............. ok
t/022-mail-maildir.t ........... ok

#   Failed test '->handle->close()'
#   at t/023-mail-stdin.t line 39.
# Looks like you failed 1 test of 13.
t/023-mail-stdin.t ............. 
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/13 subtests 
t/024-mail-memory.t ............ ok

[azumakuniyuki]

https://github.com/sisimai/p5-sisimai/blob/master/t/023-mail-stdin.t

    MAILBOX: {
        my $fakedev = '__SISIMAI_DUMMY_DEVICE_FOR_MAKE_TEST__';
        my $datatxt = <DATA>; open(STDIN, '>>', $fakedev);
        my $mailbox = $PackageName->new();
        my $emindex = 0;

        isa_ok $mailbox, $PackageName;
        can_ok $mailbox, @{ $MethodNames->{'object'} };
        is $mailbox->path, '<STDIN>', '->path = <STDIN>';
        is $mailbox->size, 0, '->size = 0';
        isa_ok $mailbox->handle, 'IO::Handle';
        is $mailbox->offset, 0, '->offset = 0';

        while( my $r = $mailbox->read ) {
            last;
        }
        ok close(STDIN);
        ok $mailbox->handle->close, '->handle->close()';
        unlink $fakedev if -e $fakedev;
    }