[interchange-cvs] interchange - jon modified scripts/findtags.PL
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Wed Sep 24 15:53:00 EDT 2003
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__
More information about the interchange-cvs
mailing list