# https://rt.cpan.org/Public/Bug/Display.html?id=90593
use Test::More;

if ($] < 5.010000) {
    plan skip_all => "Skip old perls";
}
else {
    plan tests => 2;
}

use YAML;
use constant LENGTH => 1000000;

$SIG{__WARN__} = sub { die @_ };

my $yaml = 'x: "' . ('x' x LENGTH) . '"' . "\n";

my $hash = Load $yaml;

is ref($hash), 'HASH', 'Loaded a hash';
is length($hash->{x}), LENGTH, 'Long scalar loaded';