- building & installing Perl modules.
| Base.pm (Module-Build-0.4231) | : | Base.pm (Module-Build-0.4232) |
|---|
| # -*- 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.4231'; | | our $VERSION = '0.4232'; |
| $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 1081 | | skipping to change at line 1081 |
|---|
| my $filedir = File::Basename::dirname($filename); | | my $filedir = File::Basename::dirname($filename); |
| $pack->log_verbose("Creating custom builder $filename in $filedir\n"); | | $pack->log_verbose("Creating custom builder $filename in $filedir\n"); |
| | |
| File::Path::mkpath($filedir); | | File::Path::mkpath($filedir); |
| die "Can't create directory $filedir: $!" unless -d $filedir; | | die "Can't create directory $filedir: $!" unless -d $filedir; |
| | |
| open(my $fh, '>', $filename) or die "Can't create $filename: $!"; | | open(my $fh, '>', $filename) or die "Can't create $filename: $!"; |
| print $fh <<EOF; | | print $fh <<EOF; |
| package $opts{class}; | | package $opts{class}; |
| use $pack; | | use $pack; |
|
| \@ISA = qw($pack); | | our \@ISA = qw($pack); |
| $opts{code} | | $opts{code} |
| 1; | | 1; |
| EOF | | EOF |
| close $fh; | | close $fh; |
| | |
| unshift @INC, File::Spec->catdir(File::Spec->rel2abs($build_dir), 'lib'); | | unshift @INC, File::Spec->catdir(File::Spec->rel2abs($build_dir), 'lib'); |
| eval "use $opts{class}"; | | eval "use $opts{class}"; |
| die $@ if $@; | | die $@ if $@; |
| | |
| return $opts{class}; | | return $opts{class}; |
| | | |
| End of changes. 2 change blocks. |
|---|
| 2 lines changed or deleted | | 2 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 