}
if ( $command =~ /^mkfile\s+(\S+)/) {
my $file = $1;
- # don't ask me to explain why so many backslashes...
+ # don't ask me why so many backslashes. http://xkcd.com/1638/
$input =~ s/\\/\\\\\\\\/g;
$input =~ s/\n/\\\\n/g;
$input =~ s/"/\\\\042/g;
}elsif( $factory =~ /^ucontext/) {
print "${indent}if(CONTEXT_UCONTEXT)\n";
$close=1;
+ }elsif( $factory =~ /^thread/) {
+ print "${indent}if(CONTEXT_THREADS)\n";
+ $close=1;
}
print "${indent}ADD_TEST(NAME memcheck-$name_test-$factory-$count\n";
print "${indent} WORKING_DIRECTORY $path\/\n";