distrib/lib/CPAN.pm

350 # to waste memory and run into deep recursion. So what we can do is
407   my($class,$what) = @_;
410     if (  $All[$i]->{qmod} eq $what ) {
420     my @what = @_;
421     CPAN->debug(sprintf("before jumpqueue All[%s] what[%s]",
423                         join(",",@what)
425   WHAT: for my $what (reverse @what) {
428             CPAN->debug("i[$All[$i]]what[$what]") if $CPAN::DEBUG;
429             if ($All[$i]->{qmod} eq $what){
435 qq{Object [$what] queued more than 100 times, ignoring}
441         my $obj = bless { qmod => $what }, $class;
444     CPAN->debug(sprintf("after jumpqueue All[%s] what[%s]",
446                         join(",",@what)
452   my($self,$what) = @_;
454   my $exists = grep { $_->{qmod} eq $what } @All;
455   # warn "in exists what[$what] all[@all] exists[$exists]";
847     my($self,$what) = @_;
848     $self->{is_tested}{$what} = 1;
852     my($self,$what) = @_;
853     delete $self->{is_tested}{$what};
1513 		my($what) = shift @o_what;
1514                 if ($what =~ s/^-// && exists $CPAN::DEBUG{$what}) {
1515                     $CPAN::DEBUG &= $CPAN::DEBUG ^ $CPAN::DEBUG{$what};
1518 		if ( exists $CPAN::DEBUG{$what} ) {
1519 		    $CPAN::DEBUG |= $CPAN::DEBUG{$what};
1520 		} elsif ($what =~ /^\d/) {
1521 		    $CPAN::DEBUG = $what;
1522 		} elsif (lc $what eq 'all') {
1531 			next unless lc($_) eq lc($what);
1535 		    $CPAN::Frontend->myprint("unknown argument [$what]\n")
1653     my($what) = shift @_;
1654     CPAN->debug("self[$self] what[$what] args[@_]") if $CPAN::DEBUG;
1656           $what && $what =~ /^[aru]$/;
1677 	    if ($what eq "a") {
1679 	    } elsif ($what eq "r") {
1691 	    } elsif ($what eq "u") {
1695 	    if ($what eq "a") {
1697 	    } elsif ($what eq "r") {
1699 	    } elsif ($what eq "u") {
1705 	if ($what eq "a") {
1707 	} elsif ($what eq "r") {
1710 	} elsif ($what eq "u") {
1749 	if ($what eq "u") {
1751 	} elsif ($what eq "r") {
1755     if ($what eq "r") {
1962     my($self,$what,$ornament) = @_;
1964     return unless defined $what;
1968         $what
1980 	for $line (split /\n/, $what) {
1984 	while ($what){
1985 	    $what =~ s/(.*\n?)//m;
1993         # chomp $what;
1994         # $what .= "\n"; # newlines unless $PRINT_ORNAMENTING
1995 	print $what;
2000     my($self,$what) = @_;
2002     $self->print_ornamented($what, 'bold blue on_yellow');
2006     my($self,$what) = @_;
2007     $self->myprint($what);
2012     my($self,$what) = @_;
2013     $self->print_ornamented($what, 'bold red on_yellow');
2017     my($self,$what) = @_;
2018     $self->print_ornamented($what, 'bold red on_white');
2023     my($self,$what) = @_;
2024     $self->print_ornamented($what, 'bold red on_white');
2059     # counter to 0 now, and repeat at the end of the loop. But what
2100 			  qq{don\'t know what it is.
2127                                   # what we are intending
3001         # fallback for future commands and what we have forgotten above
3096         # between reloads, otherwise it is not what a user expects.
3274     # A necessity since we have metadata_cache: delete what isn't
4650             # not available. So we do nothing. Or what should we do?
4795       # Hmmm, what to do if make clean failed?
4998     my($self,$where,$what) = @_;
4999     $self->debug("where[$where]what[$what]") if $CPAN::DEBUG;
5001 ###    my $bu = File::Spec->catfile($where,$what);
5014     my $what2 = $what;
5016       $what =~ s/^://;
5017       $what =~ tr|:|/|;
5027 	if ($file =~ m|\Q$what\E$|) {
5622     # Alt2 maintain it as what it is
5972   # We'll have to decide about a new rule here then, depending on what
6039 of what has been fetched, built and installed in the current
6097 These commands take any number of arguments and investigate what is
6117 CPAN also keeps track of what it has done within the current session
6784                      what to do if you are missing module prerequisites
6898 what I try to accomplish in my private bundle file is to have the
6955 it with the SOCKS library, this is what is normally called a 'socksified'