diff options
| -rwxr-xr-x | Documentation/en/I-D/.remove_obsolete.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Documentation/en/I-D/.remove_obsolete.pl b/Documentation/en/I-D/.remove_obsolete.pl index 965f6349..0f8b8d4a 100755 --- a/Documentation/en/I-D/.remove_obsolete.pl +++ b/Documentation/en/I-D/.remove_obsolete.pl @@ -1,20 +1,24 @@ #!/usr/bin/env perl # -# $FML$ +# $FML: .remove_obsolete.pl,v 1.1 2001/08/22 22:24:37 fukachan Exp $ # use strict; use Carp; +print "cvs remove "; + my $prev = ''; for my $cur (sort <draft*txt>) { if (compare($prev, $cur)) { - print "cvs remove $prev\n"; + print "$prev "; } $prev = $cur; } +print "\n"; + sub compare { |