doc/bugs/quieten_mercurial.mdwn

   1 The mercurial backend does not pass the --quiet option to hg, and it sometimes prints
   2 messages which are then taken for CGI output, causing errors and general trouble. --Michał
   3
   4     --- iki/usr/share/perl5/IkiWiki/Rcs/mercurial.pm    2006-12-29 02:48:30.000000000 +0100
   5     +++ /usr/share/perl5/IkiWiki/Rcs/mercurial.pm       2007-03-18 22:45:24.000000000 +0100
   6     @@ -55,7 +55,7 @@
   7      }
   8
   9      sub rcs_update () { #{{{
  10     -   my @cmdline = ("hg", "-R", "$config{srcdir}", "update");
  11     +   my @cmdline = ("hg", "-q", "-R", "$config{srcdir}", "update");
  12         if (system(@cmdline) != 0) {
  13                 warn "'@cmdline' failed: $!";
  14         }
  15     @@ -80,7 +80,7 @@
  16
  17         $message = possibly_foolish_untaint($message);
  18
  19     -   my @cmdline = ("hg", "-R", "$config{srcdir}", "commit",
  20     +   my @cmdline = ("hg", "-q", "-R", "$config{srcdir}", "commit",
  21                        "-m", "$message", "-u", "$user");
  22         if (system(@cmdline) != 0) {
  23                 warn "'@cmdline' failed: $!";
  24     @@ -92,7 +92,7 @@
  25      sub rcs_add ($) { # {{{
  26         my ($file) = @_;
  27
  28     -   my @cmdline = ("hg", "-R", "$config{srcdir}", "add", "$file");
  29     +   my @cmdline = ("hg", "-q", "-R", "$config{srcdir}", "add", "$file");
  30         if (system(@cmdline) != 0) {
  31                 warn "'@cmdline' failed: $!";
  32         }
  33
  34 Thanks much for the patch. [[bugs/done]] --[[Joey]]