From 0d13cea6c27e472490a6c5f8dc47a7f0e6122b84 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Sun, 9 Jan 2000 15:08:48 +0000
Subject: *** empty log message ***

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

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}{$_};
-- 
cgit v1.2.1