LDP
/
LDP
mirror of https://github.com/tLDP/LDP
0
1
Fork 0
Code Releases Activity

make that gracefully

This commit is contained in:
david 2002-01-13 18:38:44 +00:00
parent 7a3ebe0820
commit d2b79d0dfd
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
LDP/txt2db/txt2db.pl
View File

@ -127,6 +127,15 @@ sub proc_txt {
while ($line =~ /^=== /) {
$line =~ s/^=== /^===/;
}
while ($line =~ / =$/) {
$line =~ s/ =$/=$/;
}
while ($line =~ / ==$/) {
$line =~ s/ ==$/==$/;
}
while ($line =~ / ===$/) {
$line =~ s/ ===$/===$/;
}
if ($line =~ /^=\w/) {
&close1;