CVS shishi/doc

[shishi-commit]

Update of /home/cvs/shishi/doc
In directory dopio:/tmp/cvs-serv20773

Modified Files:
        gdoc-error 
Log Message:
Fix.


--- /home/cvs/shishi/doc/gdoc-error     2002/12/07 12:28:16     1.5
+++ /home/cvs/shishi/doc/gdoc-error     2004/09/10 10:35:07     1.6
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# Copyright (C) 2002 Simon Josefsson.
+# Copyright (C) 2002, 2004 Simon Josefsson.
 #
 # This file is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -27,14 +27,14 @@
 while (<>) {
     if ($inerror) {
        $txt .= $1 if (m,"(.*)",);
-       $inerror = 0 if m,break;,;
+       $inerror = 0 if m/},/;
        if (!$inerror) {
            print "address@hidden $label\n";
            print $txt, "\n\n";
        }
     } else {
-       next unless m,case (.*):,;
-       next if $1 =~ m,[^_]+_OK,;
+       next unless m/{(SHISHI.*),/;
+       next if $1 =~ m,SHISHI_OK,; # Handled separately.
        $inerror = 1;
        $label = $1;
        $txt = "";