use strict;
use utf8;
{
my $warn;
$SIG{__WARN__} = sub { $warn = shift };
my $p = Perl::MinimumVersion::Fast->new(\'');
is($warn, undef);
};
done_testing;