Spooky action-at-a-distance

[FGasper]

The following hangs:

> perl -Mstrict -Mwarnings -MSocket -e'use Test::MockFile; socketpair my $r, my $w, AF_UNIX, SOCK_STREAM, 0; my $fd = fileno $w; do { open my $w2, "<&=", $fd; -S $w2 }; close $w; <$r>'

… but without T::MF it finishes.

Also if you remove the -S $w2, or if you `stat "===" after it, the program will finish.

I suspect it has to do with the Overload::FileCheck::mock_stat() call; there’s probably a reference to the passed filehandle being kept around.