From d5c526273db473a7d87a26000585900fc10dda7d Mon Sep 17 00:00:00 2001 From: Mystery Man Date: Wed, 8 Nov 2000 00:01:16 +0000 Subject: This commit was manufactured by cvs2svn to create branch 'unlabeled-1.1.1'. --- tools/gencompss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tools/gencompss') diff --git a/tools/gencompss b/tools/gencompss index 333d02f0c..b26ef7c2c 100755 --- a/tools/gencompss +++ b/tools/gencompss @@ -4,11 +4,11 @@ open F, "bzip2 -dc @ARGV 2>/dev/null | hdlist2groups - |"; foreach () { chop; /(.*):(.*)/; - $l{$2}{$1} = undef; + push @{$l{$2}}, $1; } close F or die; foreach (sort keys %l) { print "$_\n"; - print "\t$_\n" foreach sort keys %{$l{$_}}; + print "\t$_\n" foreach sort @{$l{$_}}; print "\n"; } -- cgit v1.2.1