"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "inc/Module/Install/PRIVATE/Configure_Programs.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).

Configure_Programs.pm  (Mail-Mbox-MessageParser-1.5110)	:	Configure_Programs.pm  (Mail-Mbox-MessageParser-1.5111)
#line 1		#line 1
package Module::Install::PRIVATE::Configure_Programs;		package Module::Install::PRIVATE::Configure_Programs;
use strict;		use strict;
use warnings;		use warnings;
use File::Slurper qw(read_binary write_binary);
use lib 'inc';		use lib 'inc';
use Module::Install::GetProgramLocations;		use Module::Install::GetProgramLocations;
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;
# ---------------------------------------------------------------------------		# ---------------------------------------------------------------------------
sub configure_programs {		sub configure_programs {
my ($self, @args) = @_;		my ($self, @args) = @_;
$self->include('Module::Install::GetProgramLocations', 0);		$self->include('Module::Install::GetProgramLocations', 0);
$self->configure_requires('File::Slurper', 0);		$self->include_deps('File::Slurper', 0);
		require File::Slurper;
		File::Slurper->import('read_binary', 'write_binary');
my %info = (		my %info = (
'cat' => { default => 'cat', argname => 'CAT' },		'cat' => { default => 'cat', argname => 'CAT' },
'diff' => { default => 'diff', argname => 'DIFF' },		'diff' => { default => 'diff', argname => 'DIFF' },
'grep' => { default => 'grep', argname => 'GREP',		'grep' => { default => 'grep', argname => 'GREP',
types => {		types => {
'GNU' => { fetch => \&get_gnu_version,		'GNU' => { fetch => \&get_gnu_version,
numbers => '[2.1,)', },		numbers => '[2.1,)', },
},		},
},		},
End of changes. 2 change blocks.
2 lines changed or deleted		4 lines changed or added

---