"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Module/Build/Base.pm" between
Module-Build-0.4222.tar.gz and Module-Build-0.4224.tar.gz

About: Module-Build - building & installing Perl modules.

Base.pm  (Module-Build-0.4222)	:	Base.pm  (Module-Build-0.4224)
# -*- mode: cperl; tab-width: 8; indent-tabs-mode: nil; basic-offset: 2 -*-		# -*- mode: cperl; tab-width: 8; indent-tabs-mode: nil; basic-offset: 2 -*-
# vim:ts=8:sw=2:et:sta:sts=2		# vim:ts=8:sw=2:et:sta:sts=2
package Module::Build::Base;		package Module::Build::Base;
use 5.006;		use 5.006;
use strict;		use strict;
use warnings;		use warnings;
our $VERSION = '0.4222';		our $VERSION = '0.4224';
$VERSION = eval $VERSION;		$VERSION = eval $VERSION;
use Carp;		use Carp;
use Cwd ();		use Cwd ();
use File::Copy ();		use File::Copy ();
use File::Find ();		use File::Find ();
use File::Path ();		use File::Path ();
use File::Basename ();		use File::Basename ();
use File::Spec 0.82 ();		use File::Spec 0.82 ();
use File::Compare ();		use File::Compare ();
skipping to change at line 1825		skipping to change at line 1825
my @myINC = $self->_added_to_INC;		my @myINC = $self->_added_to_INC;
for (@myINC, values %q) {		for (@myINC, values %q) {
$_ = File::Spec->canonpath( $_ ) unless $self->is_vmsish;		$_ = File::Spec->canonpath( $_ ) unless $self->is_vmsish;
s/([\\\'])/\\$1/g;		s/([\\\'])/\\$1/g;
}		}
my $quoted_INC = join ",\n", map " '$_'", @myINC;		my $quoted_INC = join ",\n", map " '$_'", @myINC;
my $shebang = $self->_startperl;		my $shebang = $self->_startperl;
my $magic_number = $self->magic_number;		my $magic_number = $self->magic_number;
		my $dot_in_inc_code = $INC[-1] eq '.' ? <<'END' : '';
		if ($INC[-1] ne '.') {
		push @INC, '.';
		}
		END
print $fh <<EOF;		print $fh <<EOF;
$shebang		$shebang
use strict;		use strict;
use Cwd;		use Cwd;
use File::Basename;		use File::Basename;
use File::Spec;		use File::Spec;
sub magic_number_matches {		sub magic_number_matches {
return 0 unless -e '$q{magic_numfile}';		return 0 unless -e '$q{magic_numfile}';
skipping to change at line 1861		skipping to change at line 1866
die ("Couldn't chdir(\$base_dir), aborting\\n");		die ("Couldn't chdir(\$base_dir), aborting\\n");
}		}
unless (magic_number_matches()) {		unless (magic_number_matches()) {
die ("Configuration seems to be out of date, please re-run 'perl Build.PL' again.\\n");		die ("Configuration seems to be out of date, please re-run 'perl Build.PL' again.\\n");
}		}
}		}
unshift \@INC,		unshift \@INC,
(		(
$quoted_INC		$quoted_INC
);		);
		$dot_in_inc_code
}		}
close(*DATA) unless eof(*DATA); # ensure no open handles to this script		close(*DATA) unless eof(*DATA); # ensure no open handles to this script
use $build_package;		use $build_package;
Module::Build->VERSION(q{$config_requires});		Module::Build->VERSION(q{$config_requires});
# Some platforms have problems setting \$^X in shebang contexts, fix it up here		# Some platforms have problems setting \$^X in shebang contexts, fix it up here
\$^X = Module::Build->find_perl_interpreter;		\$^X = Module::Build->find_perl_interpreter;
End of changes. 3 change blocks.
1 lines changed or deleted		7 lines changed or added

---