do not record comments twice.
This commit is contained in:
parent
297d9e1225
commit
6caef06ee4
@ -1,6 +1,6 @@
|
|||||||
#!/usr/bin/perl -w
|
#!/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
|
# Copyright (c) 1999 Marc Espie
|
||||||
#
|
#
|
||||||
@ -98,6 +98,7 @@ sub annotate
|
|||||||
} else {
|
} else {
|
||||||
$annotated->add($_, [ $name, $newfh, 'comment'] );
|
$annotated->add($_, [ $name, $newfh, 'comment'] );
|
||||||
}
|
}
|
||||||
|
next;
|
||||||
} elsif (m/^\@dirrm\s+/) {
|
} elsif (m/^\@dirrm\s+/) {
|
||||||
$_=$';
|
$_=$';
|
||||||
$annotated_dir->add($_, [ $name, $newfh ]);
|
$annotated_dir->add($_, [ $name, $newfh ]);
|
||||||
|
Loading…
Reference in New Issue
Block a user