bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-02-21 08:04:27 -05:00
Code Issues Projects Releases Wiki Activity

Much nicer, just clip and past several lines of changes with a line with a newline

Browse Source 
with nothing on it between each change.
This commit is contained in:
freesource 2001-10-16 19:32:19 +00:00
parent 14ff394bb2
commit 8e38d18b63
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
swim_pkg
View File

@ -185,18 +185,32 @@ if (!$stop) {
my $save_doc;
$save_doc = " * ";
$count = 0;
my $mc = 0;
while (<STDIN>) {
my $doc_reply = $_;
if ($doc_reply) {
if ($doc_reply ne "\n") {
print " ";
$doc_reply = " $doc_reply" if $count != 0;
$doc_reply = "$doc_reply" if $count != 0 && $mc == 1;
$doc_reply = " $doc_reply" if $count != 0 && $mc != 1;
$mc = 0;
}
else {
print " * ";
if ( $count != 0 && $doc_reply eq "\n" ) {
$mc = 0;
$doc_reply = "\n * ";
$mc++;
}
$doc_reply = "$doc_reply" if $count != 0 && $mc == 1;
$doc_reply = " $doc_reply" if $count != 0 && $mc != 1;
}
last if $doc_reply =~ /^\s*\.\s*$/;
if ($doc_reply) {
$save_doc = $save_doc . $doc_reply;
}
$count++;
}
$count++;
}
open(CHANGELOG,">$packaging_defaults/changelog")
or die "Couldn't open check: $!\n";