Message-Id: <
64F8ECEA-D96B-11DA-AA80-000502F3279F@free.fr>
(part of, with tweaks)
p4raw-id: //depot/perl@28080
require "test.pl";
}
use strict;
+use Config;
use Filter::Util::Call;
plan(tests => 141);
pas("SSS make s fast SSS");
EOC
-do [$fh, sub {s/s/ss/gs; s/([\nS])/$1$1$1/gs; return;}] or die;
+TODO: {
+ todo_skip "disabled under -Dmad", 50 if $Config{mad};
+ do [$fh, sub {s/s/ss/gs; s/([\nS])/$1$1$1/gs; return;}] or die;
+}
sub prepend_line_counting_filter {
filter_add(sub {