+ my $cmd = ['echo', shell_quote($test_message)];
+ my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) =
+ IPC::Cmd::run(command => $cmd, verbose => 0);
+ if ((grep /'$test_message'/, @$stdout_buf) > 0) {
+ return IkiWiki::possibly_foolish_untaint($message);
+ } else {
+ return shell_quote(IkiWiki::possibly_foolish_untaint($message));
+ }