sub installer_options_for {
my ($class, $path) = @_;
- return {
+ return (
PERL_MM_OPT =>
defined $path ? "INSTALL_BASE="._mm_escape_path($path) : undef,
PERL_MB_OPT =>
defined $path ? "--install_base "._mb_escape_path($path) : undef,
- };
+ );
}
sub active_paths {
roots => [ _remove_from($self->roots, $path) ],
);
- $args{extra} = $self->installer_options_for($args{roots}[0]);
+ $args{extra} = { $self->installer_options_for($args{roots}[0]) };
$self->clone(%args);
}
);
}
- $args{extra} = $self->installer_options_for(undef);
+ $args{extra} = { $self->installer_options_for(undef) };
$self->clone(%args);
}
);
}
- $args{extra} = $self->installer_options_for($path);
+ $args{extra} = { $self->installer_options_for($path) };
$self->clone(%args);
}
=item Arguments: $path
-=item Return value: \%installer_env_vars
+=item Return value: %installer_env_vars
=back
-Returns a hashref of environment variables that should be set to cause
+Returns a hash of environment variables that should be set to cause
installation into the given path.
=head2 resolve_empty_path