[interchange-cvs] interchange - jon modified scripts/findtags.PL

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2003-09-24 18:53:24 GMT
Modified:  scripts  findtags.PL
Log:
Fix header comment to match this program.
While I'm there, make a tiny optimization.

Revision  Changes    Path
1.4       +5 -6      interchange/scripts/findtags.PL


rev 1.4, prev_rev 1.3
Index: findtags.PL
===================================================================
RCS file: /var/cvs/interchange/scripts/findtags.PL,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- findtags.PL	25 Aug 2003 11:13:58 -0000	1.3
+++ findtags.PL	24 Sep 2003 18:53:24 -0000	1.4
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
 ##!~_~perlpath~_~
 #
-# Interchange session expiration for all catalogs
+# findtags - Find ITL tags in Interchange catalogs and directories
 #
-# $Id: findtags.PL,v 1.3 2003/08/25 11:13:58 racke Exp $
+# $Id: findtags.PL,v 1.4 2003/09/24 18:53:24 jon Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -273,16 +273,15 @@
 	@tags = grep !$seen{$_}++, @tags;
 }
 
- at tags = grep /\w/, @tags;
- at tags = sort @tags;
+ at tags = sort grep /\w/, @tags;
 
 if($opt_t) {
 	print "TagInclude <<EOTI\n\t";
-	print join("\n\t", sort @tags);
+	print join("\n\t", @tags);
 	print "\nEOTI\n";
 }
 else {
-	print join("\n", sort @tags);
+	print join("\n", @tags);
 }
 __END__