- my ($success, $error_code, $full_buf, $stdout_buf, $stderr_buf) =
- IPC::Cmd::run(command => $cmd, verbose => 0);
- if (! $success) {
- warn(join(" ", @$cmd) . " exited with code $error_code\n");
- warn(join "", @$stderr_buf);
- }
- return $success;
-}
-
-sub cvs_shquote_commit ($) {
- my $message = shift;
- my $test_message = "CVS autodiscover quoting CVS";
-
- 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));
- }