Seeking advice on OUT OF MEMORY tests

Two tests consistently run of out memory on os390.  I'm looking for 
advice for getting them or something like them to work there, as well as 
for already-working platforms.

First from t/re/reg_eval_scope.t:

     use warnings;
     my $w;
     local $SIG{__WARN__} = sub { $w = "@_" };
     my $qr = qr/(??{'a'})/;
     my $filler = 1;
     ("a" x 40_000) =~ /^$qr(ab*)+/; my $line = __LINE__;
     like($w, qr/recursion limit.* line $line\b/, "warning on right line");


Second, from t/re/pat_rt_report.t:

   ok (("a" x (2 ** 15 - 10)) =~ /^()(a|bb)*$/, "Recursive stack 
cracker; Bug 24274");

• Seeking advice on OUT OF MEMORY tests by Karl Williamson
• Re: Seeking advice on OUT OF MEMORY tests by Tony Cook