summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index ac0e312ae..ddae5735b 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -669,10 +669,11 @@ sub readCompssUsers {
if (/^(\S.*)/) {
my $verbatim = $_;
- my ($icon, $descr);
+ my ($icon, $descr, $path);
+ /^(.*?)\s*\[path=(.*?)\](.*)/ and $_ = "$1$3", $path = $2;
/^(.*?)\s*\[icon=(.*?)\](.*)/ and $_ = "$1$3", $icon = $2;
/^(.*?)\s*\[descr=(.*?)\](.*)/ and $_ = "$1$3", $descr = $2;
- $compssUsers{$_} = { verbatim => $verbatim, icons => $icon, descr => $descr, flags => $l=[] };
+ $compssUsers{$_} = { verbatim => $verbatim, path => $path, icons => $icon, descr => $descr, flags => $l=[] };
push @sorted, $_;
} elsif (/^\s+(.*?)\s*$/) {
push @$l, $1;