1
0
Fork 0

Minor simplification

This commit is contained in:
Jonas Fonseca 2006-01-15 18:06:44 +01:00 committed by Jonas Fonseca
parent fb7e6e4f74
commit 2a4afa22b1
1 changed files with 4 additions and 6 deletions

View File

@ -21,14 +21,12 @@ usage($HELP) if $opt_h or @ARGV < 1;
sub put_section {
if ($title) {
print "\n$title\n";
$_ = $title;
s/[^-]/-/g;
print "$_\n" if not $indent;
$title =~ s/[^-]/-/g;
print "$title\n" if not $indent;
}
if ($body) {
$_ = $body;
s/#newline#/$indent/g;
print "$_\n";
$body =~ s/#newline#/$indent/g;
print "$body\n";
}
$title = $body = undef;
}