"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

Home  |  About  |  All  |  Newest  |  Fossies Dox  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTPS