efficient output

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
 {