- eval q{use String::ShellQuote};
- error($@) if $@;
- eval q{use IPC::Cmd};
- error($@) if $@;
-
- 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));
- }