do not record comments twice.
This commit is contained in:
parent
297d9e1225
commit
6caef06ee4
@ -1,6 +1,6 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
# $OpenBSD: make-plist,v 1.26 2003/06/30 11:49:41 espie Exp $
|
||||
# $OpenBSD: make-plist,v 1.27 2003/06/30 11:53:37 espie Exp $
|
||||
|
||||
# Copyright (c) 1999 Marc Espie
|
||||
#
|
||||
@ -98,6 +98,7 @@ sub annotate
|
||||
} else {
|
||||
$annotated->add($_, [ $name, $newfh, 'comment'] );
|
||||
}
|
||||
next;
|
||||
} elsif (m/^\@dirrm\s+/) {
|
||||
$_=$';
|
||||
$annotated_dir->add($_, [ $name, $newfh ]);
|
||||
@ -227,7 +228,7 @@ sub handle_file
|
||||
if (defined $annotated->{$fname}) {
|
||||
for my $l (@{$annotated->{$fname}}) {
|
||||
if (@$l == 3) {
|
||||
$l->[1]->print("\@comment$string");
|
||||
$l->[1]->print("\@comment $string");
|
||||
} elsif (@$l == 2) {
|
||||
$l->[1]->print($string);
|
||||
} else {
|
||||
|
Loading…
Reference in New Issue
Block a user