use vars qw($VERSION @ISA);
@ISA = qw(Module::Build::Base);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
# Okay, this is the brute-force method of finding out what kind of
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
BEGIN { require 5.00503 }
sub script_files {
my $self = shift;
-
+
for ($self->{properties}{script_files}) {
$_ = shift if @_;
next unless $_;
-
+
# Always coerce into a hash
return $_ if UNIVERSAL::isa($_, 'HASH');
return $_ = { map {$_,1} @$_ } if UNIVERSAL::isa($_, 'ARRAY');
-
+
die "'script_files' must be a hashref, arrayref, or string" if ref();
-
+
return $_ = { map {$_,1} $self->_files_in( $_ ) } if -d $_;
return $_ = {$_ => 1};
}
-
- my %pl_files = map { File::Spec->canonpath($_) => 1 }
- keys %{ $self->PL_files || {} };
- return $_ = { map {$_ => 1} grep !$pl_files{$_}, $self->_files_in('bin') };
+
+ my %pl_files = map {
+ File::Spec->canonpath( File::Spec->case_tolerant ? uc $_ : $_ ) => 1
+ } keys %{ $self->PL_files || {} };
+
+ my @bin_files = $self->_files_in('bin');
+
+ my %bin_map = map {
+ $_ => File::Spec->canonpath( File::Spec->case_tolerant ? uc $_ : $_ )
+ } @bin_files;
+
+ return $_ = { map {$_ => 1} grep !$pl_files{$bin_map{$_}}, @bin_files };
}
BEGIN { *scripts = \&script_files; }
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
use File::Basename ();
use File::Spec;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Config;
while (my ($modname, $spec) = each %p) {
my $status = Module::Build->check_installed_status($modname, $spec);
if ((!$status->{ok}) xor ($type =~ /conflicts$/)) { return 0; }
+ if ( ! eval "require $modname; 1" ) { return 0; }
}
}
return 1;
package Module::Build::Cookbook;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
=head1 NAME
package Module::Build::Dumper;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
# This is just a split-out of a wrapper function to do Data::Dumper
# stuff "the right way". See:
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use File::Spec;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Data::Dumper;
use IO::File;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
# This code is mostly borrowed from ExtUtils::MM_Unix 6.10_03, with a
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Module::Build::Base;
use vars qw(@ISA);
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Module::Build::Base;
use vars qw(@ISA);
@ISA = qw(Module::Build::Base);
-# Need to look up the feature settings. The preferred way is to use the
-# VMS::Feature module, but that may not be available to dual life modules.
-
-my $use_feature;
-BEGIN {
- if (eval { local $SIG{__DIE__}; require VMS::Feature; }) {
- $use_feature = 1;
- }
-}
-
-# Need to look up the UNIX report mode. This may become a dynamic mode
-# in the future.
-sub _unix_rpt {
- my $unix_rpt;
- if ($use_feature) {
- $unix_rpt = VMS::Feature::current("filename_unix_report");
- } else {
- my $env_unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
- $unix_rpt = $env_unix_rpt =~ /^[ET1]/i;
- }
- return $unix_rpt;
-}
-
-# Need to look up the EFS character set mode. This may become a dynamic
-# mode in the future.
-sub _efs {
- my $efs;
- if ($use_feature) {
- $efs = VMS::Feature::current("efs_charset");
- } else {
- my $env_efs = $ENV{'DECC$EFS_CHARSET'} || '';
- $efs = $env_efs =~ /^[ET1]/i;
- }
- return $efs;
-}
-
=head1 NAME
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Config;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.33_05';
+$VERSION = '0.33_06';
$VERSION = eval $VERSION;
use vars qw(@ISA);
use vars qw(@ISA $VERSION $CLASS *declare *qv);
-$VERSION = 0;
+$VERSION = 0.77;
$CLASS = 'version';
no strict 'refs';
*{'version::stringify'} = \*version::vpp::stringify;
*{'version::(""'} = \*version::vpp::stringify;
+ *{'version::new'} = \*version::vpp::new;
}
# Preloaded methods go here.
use locale;
use vars qw ($VERSION @ISA @REGEXS);
$VERSION = '0.77';
+$VERSION = eval $VERSION;
push @REGEXS, qr/
^v? # optional leading 'v'
projects / p5sagit/p5-mst-13.2.git / commitdiff