Parent Directory | Revision Log | Patch
revision 1.8 by shigio, Sat Oct 2 04:17:48 2004 UTC | revision 1.9 by shigio, Fri Feb 18 11:07:18 2005 UTC | |
---|---|---|
# | Line 385 sub gen { | Line 385 sub gen { |
385 | $infile = "$dir/manual.in"; | $infile = "$dir/manual.in"; |
386 | open(INFILE, $infile) || die("cannot open '$infile'\n"); | open(INFILE, $infile) || die("cannot open '$infile'\n"); |
387 | while (<INFILE>) { | while (<INFILE>) { |
388 | if (/^\@NAME\s+((\w+)\s+\-\s+.*)$/) { | if (/^\@NAME\s+((\S+)\s+\-\s+.*)$/) { |
389 | $line = $1; | $line = $1; |
390 | $name = $2; | $name = $2; |
391 | last; | last; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |