From 91f4fa17f071c259dec90fbbc508325875e6bb5d Mon Sep 17 00:00:00 2001 From: fukachan Date: Sat, 17 Nov 2001 10:44:35 +0000 Subject: efficient output --- Documentation/en/I-D/.remove_obsolete.pl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'Documentation') 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 ) { if (compare($prev, $cur)) { - print "cvs remove $prev\n"; + print "$prev "; } $prev = $cur; } +print "\n"; + sub compare { -- cgit v1.2.1