summaryrefslogtreecommitdiffstats
path: root/tools/gencompss
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-25 18:45:50 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-25 18:45:50 +0000
commit23c22ae05ec5203dcaf93ec4194b8ec2a5408f28 (patch)
treef69d71a154eaf6142790d1577ff873295e08e3d9 /tools/gencompss
parentcbcbc7ce4ce46ca523dd50da5da08a2cf3a06bce (diff)
downloaddrakx-backup-do-not-use-23c22ae05ec5203dcaf93ec4194b8ec2a5408f28.tar
drakx-backup-do-not-use-23c22ae05ec5203dcaf93ec4194b8ec2a5408f28.tar.gz
drakx-backup-do-not-use-23c22ae05ec5203dcaf93ec4194b8ec2a5408f28.tar.bz2
drakx-backup-do-not-use-23c22ae05ec5203dcaf93ec4194b8ec2a5408f28.tar.xz
drakx-backup-do-not-use-23c22ae05ec5203dcaf93ec4194b8ec2a5408f28.zip
*** empty log message ***
Diffstat (limited to 'tools/gencompss')
-rwxr-xr-xtools/gencompss4
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/gencompss b/tools/gencompss
index b26ef7c2c..333d02f0c 100755
--- a/tools/gencompss
+++ b/tools/gencompss
@@ -4,11 +4,11 @@ open F, "bzip2 -dc @ARGV 2>/dev/null | hdlist2groups - |";
foreach (<F>) {
chop;
/(.*):(.*)/;
- push @{$l{$2}}, $1;
+ $l{$2}{$1} = undef;
}
close F or die;
foreach (sort keys %l) {
print "$_\n";
- print "\t$_\n" foreach sort @{$l{$_}};
+ print "\t$_\n" foreach sort keys %{$l{$_}};
print "\n";
}