diff options
author | Sawyer X <xsawyerx@cpan.org> | 2018-06-18 21:43:16 -0600 |
---|---|---|
committer | Sawyer X <xsawyerx@cpan.org> | 2018-06-18 21:43:16 -0600 |
commit | 443128e3a6a0454fb593eccd3ec5458b76a95cd7 (patch) | |
tree | 94406921ecd69a8d4dc53c3622fc1ad486b1dcb9 | |
parent | 38cf17db399e6a682c5425c6b2e2cc75e6a161fe (diff) | |
parent | 7e52c9caaad074b1bd777dd36049eec7e12dd613 (diff) | |
download | perl-443128e3a6a0454fb593eccd3ec5458b76a95cd7.tar.gz |
Merge branch 'blead' of ssh://perl5.git.perl.org/perl into blead
-rw-r--r-- | dist/Storable/t/retrieve.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/dist/Storable/t/retrieve.t b/dist/Storable/t/retrieve.t index ccd907b8d6..0412772890 100644 --- a/dist/Storable/t/retrieve.t +++ b/dist/Storable/t/retrieve.t @@ -75,7 +75,13 @@ is(length $root->[1], 0); is($x, undef, 'and undef result'); } +SKIP: { + # this can allocate a lot of memory, only do that if the testers tells us we can + # the test allocates 2GB, but other memory is allocated too, so we want + # at least 3 + $ENV{PERL_TEST_MEMORY} && $ENV{PERL_TEST_MEMORY} >= 3 + or skip "over 2GB memory needed for this test", 2; # len<I32, len>127: stack overflow my $retrieve_hook = "\x04\x0a\x08\x31\x32\x33\x34\x35\x36\x37\x38\x04\x08\x08\x08\x13\x04\x49\xfe\xf4\x7f\x72\x6e\x61\x6c\x73\x02\x00\x00\x00\x00"; my $x = eval { Storable::mretrieve($retrieve_hook); }; |