diff options
| -rw-r--r-- | perl-install/pkgs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index f4dff1d3e..91d81921c 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -225,7 +225,7 @@ sub readCompss($) { if (/^(\S+)/) { my $p = $compss; my @l = split ':', $1; - pop @l if $l[-1] =~ /^(x11|console)$/; +#- Why? pop @l if $l[-1] =~ /^(x11|console)$/; foreach (@l) { $p->{childs}{$_} ||= { childs => {} }; $p = $p->{childs}{$_}; |