readdir doesn't autopopulate $_

[toddr]

#!/usr/bin/perl

use strict;
use warnings;
use Test::MockFile;

my $mock_obj = Test::MockFile->dir( '/path', [qw/uh like whut/] );

if ( opendir( my $dh, $mock_obj->{'file_name'} ) ) {
    print "opened dir $mock_obj->{'file_name'}\n";
    while ( readdir $dh ) {
        print "- $_\n";
    }
    closedir($dh);
}
else {
    print "cannah do iht capt'n\n";
}

$>perl foo.pl 
opened dir /path
Use of uninitialized value $_ in concatenation (.) or string at foo.pl line 12.
- 
Use of uninitialized value $_ in concatenation (.) or string at foo.pl line 12.
- 
Use of uninitialized value $_ in concatenation (.) or string at foo.pl line 12.
- 
Use of uninitialized value $_ in concatenation (.) or string at foo.pl line 12.
- 
Use of uninitialized value $_ in concatenation (.) or string at foo.pl line 12.
- 

[toddr]

This turns out to be a bug in perl. https://rt.perl.org/Public/Bug/Display.html?id=133795

[toddr]

Given this is a confirmed bug in perl, I'm closing this case for now.