"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/App/Cpan.pm" between
CPAN-2.27.tar.gz and CPAN-2.28.tar.gz

About: CPAN query, download and build perl modules from CPAN (Comprehensive Perl Archive Network) sites.

Cpan.pm  (CPAN-2.27)	:	Cpan.pm  (CPAN-2.28)
package App::Cpan;		package App::Cpan;
use strict;		use strict;
use warnings;		use warnings;
use vars qw($VERSION);		use vars qw($VERSION);
use if $] < 5.008 => 'IO::Scalar';		use if $] < 5.008 => 'IO::Scalar';
$VERSION = '1.675';		$VERSION = '1.676';
=head1 NAME		=head1 NAME
App::Cpan - easily interact with CPAN from the command line		App::Cpan - easily interact with CPAN from the command line
=head1 SYNOPSIS		=head1 SYNOPSIS
# with arguments and no switches, installs specified modules		# with arguments and no switches, installs specified modules
cpan module_name [ module_name ... ]		cpan module_name [ module_name ... ]
skipping to change at line 688		skipping to change at line 688
*CPAN::Shell::myprint = sub {		*CPAN::Shell::myprint = sub {
my($self,$what) = @_;		my($self,$what) = @_;
$scalar .= $what if defined $what;		$scalar .= $what if defined $what;
$self->print_ornamented($what,		$self->print_ornamented($what,
$CPAN::Config->{colorize_print}||'bold blue on_white',		$CPAN::Config->{colorize_print}||'bold blue on_white',
);		);
};		};
*CPAN::Shell::mywarn = sub {		*CPAN::Shell::mywarn = sub {
my($self,$what) = @_;		my($self,$what) = @_;
$scalar .= $what;		$scalar .= $what if defined $what;
$self->print_ornamented($what,		$self->print_ornamented($what,
$CPAN::Config->{colorize_warn}||'bold red on_white'		$CPAN::Config->{colorize_warn}||'bold red on_white'
);		);
};		};
}		}
sub _clear_cpanpm_output { $scalar = '' }		sub _clear_cpanpm_output { $scalar = '' }
sub _get_cpanpm_output { $scalar }		sub _get_cpanpm_output { $scalar }
End of changes. 2 change blocks.
2 lines changed or deleted		2 lines changed or added

---