| Subject: | [PATCH] Fix for 5.17.2 |
5.17.2 now optimises "a" x 1000 to a constant at compile time when possible.
This causes one test to fail, since it expects the repetition operator to increase memory usage
significantly.
The attached patch I believe will fix it, but I have no way of testing this myself.
See also <https://rt.perl.org/rt3/Ticket/Display.html?id=114424>.
| Subject: | open_vpsyVWhK.txt |
diff -rup Linux-Smaps-0.09-eJpiev-orig/t/02.t Linux-Smaps-0.09-eJpiev/t/02.t
--- Linux-Smaps-0.09-eJpiev-orig/t/02.t 2011-04-01 06:36:43.000000000 -0700
+++ Linux-Smaps-0.09-eJpiev/t/02.t 2012-09-19 06:14:07.000000000 -0700
@@ -36,7 +36,8 @@ ok @$newlist==0 && @$difflist==0 && @$ol
my $dirty=$s->private_dirty;
{
no warnings qw{void};
- "a"x(1024*1024);
+ my $a = "a";
+ $a x(1024*1024);
}
$s->update;
print "# dirty grows from $dirty to ".$s->private_dirty."\n";