App-ucpan
view release on metacpan or search on metacpan
script/ucpan view on Meta::CPAN
return;
}
return !$exit_code;
};
}
my $diag_msg;
*App::cpanminus::script::_diag = sub {
my ( $self, $m, $a, $e ) = @_;
$state->{fail} = ( $state->{phase} || 'N/A' ) if $e;
if ( $m =~ /^! Timed out/ ) {
$state->{phase} .= "(Timeout)";
}
};
*App::cpanminus::script::install_module = sub {
my ( $self, $m, $d, $v ) = @_;
return 1 if $self->{seen}{$m};
my ( $dist, $mod, $ver, $file )
= @{ $self->resolve_name($m) }
{qw/dist module module_version pathname/};
my ( $target, @mods );
if ( !$outdated{$dist} ) {
script/ucpan view on Meta::CPAN
$$target->{time_required} = $elapse_one;
$outdated{$dist} ||= delete $added{$dist};
if ( $state->{in}{ $d + 1 } ) {
$state->{progress_prev} = undef;
pr( DEFAULT => $ispace x $state->{depth} );
pr( DEFAULT => '--> ' . $dist . '..' );
}
else {
pr_progress($state);
}
pr( FAIL => "Timeout!!.." ) if $state->{fail} =~ /timeout/i;
pr( FAIL => "FAIL" );
pr( DEFAULT => "($elapse_one sec)" . $/ );
}
$state = $state->{prev};
return $res;
};
*App::cpanminus::script::fetch_module = sub {
$state->{phase} = "Fetch";
pr( FETCH => $ispace x $state->{depth},
$state->{progress_prev} = "Fetch.."
script/ucpan view on Meta::CPAN
=over 4
=item Symbolic link
L<cpanm> creates a symbolic link of the latest build log and working directory directly under $HOME/.cpanm,
but it is not created under Win32 environment.
ucpan can emulate symlink() and create it using Win32's mklink command.
(There is no one working in FAT32 environment anymore, is it?)
=item Timeout
L<cpanm> ignores the --*-timeout option in Win32 environment,
but in Win32 environment SIGALARM can also be used to implement timeout processing.
ucpan implements this.
=back
=head1 ENVIRONMENT VARIABLES
The following environment variables affect this program.
( run in 0.260 second using v1.01-cache-2.11-cpan-4d50c553e7e )