do not record comments twice.

This commit is contained in:
espie 2003-06-30 11:53:37 +00:00
parent 297d9e1225
commit 6caef06ee4

View File

@ -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 {