+
+ if (IPC::Cmd->can_capture_buffer) {
+ my ($success, $errmsg, $output) = run command => [ qw/emerge --info/ ],
+ verbose => 0;
+ if ($success) {
+ for (@{$output || []}) {
+ if (/^PORTDIR_OVERLAY=(.*)$/m) {
+ my $o = $1;
+ $o =~ s/^["']*//;
+ $o =~ s/["']*$//;
+ $overlays = [ map abs_path($_), split ' ', $o ];
+ }
+ if (/^ACCEPT_KEYWORDS=(.*)$/m) {
+ my $k = $1;
+ $k =~ s/^["']*//;
+ $k =~ s/["']*$//;
+ $default_keywords = [ split ' ', $k ];
+ }
+ }
+ } else {
+ error $errmsg;
+ }
+ }
+
+ $default_keywords = [ 'x86' ] unless defined $default_keywords;
+