diff options
author | Sven Eden <sven.eden@gmx.de> | 2013-01-17 08:16:28 +0100 |
---|---|---|
committer | Sven Eden <sven.eden@gmx.de> | 2013-01-17 08:16:28 +0100 |
commit | 9372270835430b83878a3f8f318c058e53e1dda5 (patch) | |
tree | 2d019803a33197c0ee5d7292597d86a2703b5c93 /ufed.pl.in | |
parent | Fixed several Perl::Critic warnings. This has been done as a (diff) | |
download | ufed-9372270835430b83878a3f8f318c058e53e1dda5.tar.gz ufed-9372270835430b83878a3f8f318c058e53e1dda5.tar.bz2 ufed-9372270835430b83878a3f8f318c058e53e1dda5.zip |
Added subroutine descriptions for future reference.
Diffstat (limited to 'ufed.pl.in')
-rw-r--r-- | ufed.pl.in | 17 |
1 files changed, 17 insertions, 0 deletions
@@ -56,6 +56,9 @@ for(keys %Portage::use_masked_flags) { flags_dialog; +# Take a list and return it ordered the following way: +# Put "-*" first, followed by enabling flags and put +# disabling flags to the end. sub finalise { my @arg = @_; my @result = sort { @@ -68,6 +71,10 @@ sub finalise { return @result; } +# Launch the curses inteface. Communication is done using +# pipes. Waiting for pipe read/write to finish is done +# automatically. +# No arguments accepted. sub flags_dialog { use POSIX (); POSIX::dup2 1, 3; @@ -141,6 +148,14 @@ sub flags_dialog { return; } +# Build the global %use_descriptions hash. +# Parsed files are: +# 1. PORTDIR/profiles/use.desc +# 2. PORTDIR/profiles/use.local.desc +# No arguments accepted. +# @todo : The local descriptions must be written in a different +# way (how?) to allow the wanted filtering/distinction +# between global/local flags. sub read_use_descs { my %_use_descriptions; for my $dir(@Portage::portagedirs) { @@ -166,6 +181,8 @@ sub read_use_descs { return; } +# Write given list of flags back to make.conf if +# the file has not been changed since reading it. sub save_flags { my (@flags) = @_; my $BLANK = qr{(?:[ \n\t]+|#.*)+}; # whitespace and comments |