diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-05-25 18:45:50 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-05-25 18:45:50 +0000 |
| commit | 23c22ae05ec5203dcaf93ec4194b8ec2a5408f28 (patch) | |
| tree | f69d71a154eaf6142790d1577ff873295e08e3d9 /tools | |
| parent | cbcbc7ce4ce46ca523dd50da5da08a2cf3a06bce (diff) | |
| download | drakx-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')
| -rwxr-xr-x | tools/gencompss | 4 |
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"; } |