"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "inc/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm" between
Mail-Mbox-MessageParser-1.5110.tar.gz and Mail-Mbox-MessageParser-1.5111.tar.gz

About: Mail-Mbox-MessageParser is a feature-poor but very fast mbox parser (Perl module).

Enable_Verbose_CPAN_Testing.pm  (Mail-Mbox-MessageParser-1.5110)	:	Enable_Verbose_CPAN_Testing.pm  (Mail-Mbox-MessageParser-1.5111)
#line 1		#line 1
package Module::Install::PRIVATE::Enable_Verbose_CPAN_Testing;		package Module::Install::PRIVATE::Enable_Verbose_CPAN_Testing;
use strict;		use strict;
use warnings;		use warnings;
use lib 'inc';		use lib 'inc';
BEGIN{
# Avoid subroutine redefined errors
if (!defined(&Module::Install::AutomatedTester::auto_tester)) {
require Module::Install::AutomatedTester;
}
}
use vars qw( @ISA $VERSION );		use vars qw( @ISA $VERSION );
use Module::Install::Base;		use Module::Install::Base;
@ISA = qw( Module::Install::Base );		@ISA = qw( Module::Install::Base );
$VERSION = sprintf "%d.%02d%02d", q/0.1.0/ =~ /(\d+)/g;		$VERSION = sprintf "%d.%02d%02d", q/0.1.0/ =~ /(\d+)/g;
our( $ORIG_TEST_VIA_HARNESS );		our( $ORIG_TEST_VIA_HARNESS );
# ---------------------------------------------------------------------------		# ---------------------------------------------------------------------------
sub enable_verbose_cpan_testing {		sub enable_verbose_cpan_testing {
my ($self, @args) = @_;		my ($self, @args) = @_;
# Tell Module::Install to include this, since we use it.		# Tell Module::Install to include this, since we use it.
$self->perl_version('5.005');		$self->perl_version('5.005');
$self->include_deps('Module::Install::AutomatedTester', 0);		$self->include_deps('Module::Install::AutomatedTester', 0);
		# Avoid subroutine redefined errors
		if (!defined(&Module::Install::AutomatedTester::auto_tester)) {
		require Module::Install::AutomatedTester;
		}
return unless Module::Install::AutomatedTester::auto_tester();		return unless Module::Install::AutomatedTester::auto_tester();
unless(defined $ORIG_TEST_VIA_HARNESS) {		unless(defined $ORIG_TEST_VIA_HARNESS) {
$ORIG_TEST_VIA_HARNESS = MY->can('test_via_harness');		$ORIG_TEST_VIA_HARNESS = MY->can('test_via_harness');
no warnings 'redefine';		no warnings 'redefine';
*MY::test_via_harness = \&_force_verbose;		*MY::test_via_harness = \&_force_verbose;
}		}
}		}
sub _force_verbose {		sub _force_verbose {
End of changes. 2 change blocks.
7 lines changed or deleted		5 lines changed or added

---