From: <lue...@us...> - 2003-10-19 15:24:57
|
Update of /cvsroot/e-p-i-c/org.epic.perleditor/src In directory sc8-pr-cvs1:/tmp/cvs-serv21921/src Modified Files: createKeywords.pl Log Message: Updated Index: createKeywords.pl =================================================================== RCS file: /cvsroot/e-p-i-c/org.epic.perleditor/src/createKeywords.pl,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- createKeywords.pl 19 Oct 2003 13:57:02 -0000 1.4 +++ createKeywords.pl 19 Oct 2003 14:20:20 -0000 1.5 @@ -17,7 +17,7 @@ foreach my $keyword (<KEYWORDS>) { chomp($keyword); my $result = `perldoc -t -f $keyword`; - $result =~ s/\n\n.*//sm; + $result =~ s/(.*?\.)\n\n.*/$1/sm; $result =~ s/\\/\\\\/g; $result =~ s/\n/\\n/g; |