summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSven Eden <sven.eden@gmx.de>2013-01-22 19:04:03 +0100
committerSven Eden <sven.eden@gmx.de>2013-01-22 19:04:03 +0100
commit289cbff40db1e31920c3f06f518d416b8b13d223 (patch)
tree3625d5cf941a73cfb22a6dee5b15e34c25ee2fe5 /ufed.pl.in
parenttopline must be handled as statically in regards of a fixed lines list like t... (diff)
downloadufed-289cbff40db1e31920c3f06f518d416b8b13d223.tar.gz
ufed-289cbff40db1e31920c3f06f518d416b8b13d223.tar.bz2
ufed-289cbff40db1e31920c3f06f518d416b8b13d223.zip
Re-add masked flags to normal flag list, re-sorting them in alphabetically to fix certain searching issues.
Diffstat (limited to 'ufed.pl.in')
-rw-r--r--ufed.pl.in30
1 files changed, 8 insertions, 22 deletions
diff --git a/ufed.pl.in b/ufed.pl.in
index d1bd669..9b072b7 100644
--- a/ufed.pl.in
+++ b/ufed.pl.in
@@ -18,7 +18,6 @@ my $interface = 'ufed-curses';
# . " XX_libexecdir@/ufed-curses 2>/tmp/ufed_memcheck.log";
my %use_descriptions;
-my %masked_descriptions;
sub finalise;
sub flags_dialog;
@@ -53,15 +52,15 @@ for my $flag (keys %Portage::use_masked_flags) {
}
if($masked) {
if (defined($use_descriptions{$flag})) {
- @{$masked_descriptions{$flag}} = @{$use_descriptions{$flag}};
- for (my $i = 0; $i < scalar @{$masked_descriptions{$flag}}; ++$i) {
- $masked_descriptions{$flag}->[$i] =~ s/ [lg]$/ m/ ;
- $masked_descriptions{$flag}->[$i] =~ s/ L$/ M/ ;
+ for (my $i = 0; $i < scalar @{$use_descriptions{$flag}}; ++$i) {
+ $use_descriptions{$flag}->[$i] =~ s/ [lg]$/ m/ ;
+ $use_descriptions{$flag}->[$i] =~ s/ L$/ M/ ;
}
+ } else {
+ delete $use_descriptions{$flag};
+ delete $Portage::default_flags{$flag};
+ delete $Portage::all_flags{$flag};
}
- delete $use_descriptions{$flag};
- delete $Portage::default_flags{$flag};
- delete $Portage::all_flags{$flag};
}
}
@@ -111,20 +110,7 @@ sub flags_dialog {
POSIX::close $owrite;
my $outTxt = "";
- # Write masked flags first so they sort at the beginning of the list
- for my $flag (sort { uc $a cmp uc $b } keys %masked_descriptions) {
- $outTxt .= sprintf ("%s %s (%s%s) %d\n", $flag,
- defined($Portage::make_conf_flags{$flag})
- ? $Portage::make_conf_flags{$flag} ? 'on' : 'off' : 'def',
- exists($Portage::make_defaults_flags{$flag})
- ? $Portage::make_defaults_flags{$flag} ? '+' : '-' : ' ',
- exists($Portage::make_conf_flags{$flag})
- ? $Portage::make_conf_flags{$flag} ? '+' : '-' : ' ',
- scalar @{$masked_descriptions{$flag}} );
- $outTxt .= sprintf ("%s\n", $_) for(@{$masked_descriptions{$flag}});
- }
-
- # Then write regular flags
+ # Write out flags
for my $flag (sort { uc $a cmp uc $b } keys %use_descriptions) {
$outTxt .= sprintf ("%s %s (%s%s) %d\n", $flag,
defined($Portage::make_conf_flags{$flag})