Author: dagolden
Date: Thu Nov 19 05:19:20 2009
New Revision: 13568
Modified:
Module-Build/trunk/lib/Module/Build.pm
Module-Build/trunk/lib/Module/Build/Base.pm
Module-Build/trunk/lib/Module/Build/Compat.pm
Module-Build/trunk/lib/Module/Build/Cookbook.pm
Module-Build/trunk/lib/Module/Build/ModuleInfo.pm
Module-Build/trunk/lib/Module/Build/Notes.pm
Module-Build/trunk/lib/Module/Build/PPMMaker.pm
Module-Build/trunk/lib/Module/Build/Platform/MacOS.pm
Module-Build/trunk/lib/Module/Build/Platform/VMS.pm
Module-Build/trunk/lib/Module/Build/Platform/Windows.pm
Module-Build/trunk/lib/Module/Build/PodParser.pm
Module-Build/trunk/lib/Module/Build/Version.pm
Module-Build/trunk/lib/Module/Build/YAML.pm
Module-Build/trunk/lib/inc/latest.pm
Module-Build/trunk/lib/inc/latest/private.pm
Module-Build/trunk/scripts/config_data
Module-Build/trunk/t/basic.t
Module-Build/trunk/t/compat.t
Module-Build/trunk/t/destinations.t
Module-Build/trunk/t/ext.t
Module-Build/trunk/t/extend.t
Module-Build/trunk/t/files.t
Module-Build/trunk/t/help.t
Module-Build/trunk/t/install.t
Module-Build/trunk/t/install_extra_target.t
Module-Build/trunk/t/manifypods.t
Module-Build/trunk/t/metadata.t
Module-Build/trunk/t/metadata2.t
Module-Build/trunk/t/pod_parser.t
Module-Build/trunk/t/runthrough.t
Module-Build/trunk/t/script_dist.t
Module-Build/trunk/t/signature.t
Module-Build/trunk/t/test_type.t
Module-Build/trunk/t/test_types.t
Module-Build/trunk/t/tilde.t
Log:
mega trailing whitespace cleanup
Modified: Module-Build/trunk/lib/Module/Build.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build.pm (original)
+++ Module-Build/trunk/lib/Module/Build.pm Thu Nov 19 05:19:20 2009
@@ -300,7 +300,7 @@
GZIP compression.
By default, this action will use the C<Archive::Tar> module. However, you can
-force it to use binary "tar" and "gzip" executables by supplying an explicit
+force it to use binary "tar" and "gzip" executables by supplying an explicit
C<tar> (and optional C<gzip>) parameter:
./Build dist --tar C:\path\to\tar.exe --gzip C:\path\to\zip.exe
@@ -541,7 +541,7 @@
[version 0.28]
This action is identical to the C<install> action. In the future,
-though, when C<install> starts writing to the file
+though, when C<install> starts writing to the file
F<$(INSTALLARCHLIB)/perllocal.pod>, C<pure_install> won't, and that
will be the only difference between them.
@@ -666,7 +666,7 @@
[version 0.25]
-This checks all the files described in the C<docs> action and
+This checks all the files described in the C<docs> action and
produces C<Test::Harness>-style output. If you are a module author,
this is useful to run before creating a new release.
@@ -674,7 +674,7 @@
[version 0.28]
-This checks the pod coverage of the distribution and
+This checks the pod coverage of the distribution and
produces C<Test::Harness>-style output. If you are a module author,
this is useful to run before creating a new release.
Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Thu Nov 19 05:19:20 2009
@@ -2416,6 +2416,7 @@
while (my ($one, $two) = splice @actions, 0, 2) {
$out .= sprintf(" %-12s %-12s\n", $one, $two||'');
}
+ $out =~ s{\s*$}{}mg; # remove trailing spaces
return $out;
}
Modified: Module-Build/trunk/lib/Module/Build/Compat.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Compat.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Compat.pm Thu Nov 19 05:19:20 2009
@@ -18,7 +18,7 @@
VENDOR => 'vendor',
);
-my %makefile_to_build =
+my %makefile_to_build =
(
TEST_VERBOSE => 'verbose',
VERBINST => 'verbose',
@@ -89,18 +89,18 @@
}
return %$merge;
}
-
-
+
+
sub create_makefile_pl {
my ($package, $type, $build, %args) = @_;
-
+
die "Don't know how to build Makefile.PL of type '$type'"
unless $type =~ /^(small|passthrough|traditional)$/;
if ($type eq 'passthrough') {
$build->log_warn(<<"HERE");
-
-IMPORTANT NOTE: The '$type' style of Makefile.PL is deprecated and
+
+IMPORTANT NOTE: The '$type' style of Makefile.PL is deprecated and
may be removed in a future version of Module::Build in favor of the
'configure_requires' property. See Module::Build::Compat
documentation for details.
@@ -120,7 +120,7 @@
print {$fh} "# Note: this file was auto-generated by ", __PACKAGE__, "
version $VERSION\n";
- # Minimum perl version should be specified as "require 5.XXXXXX" in
+ # Minimum perl version should be specified as "require 5.XXXXXX" in
# Makefile.PL
my $requires = $build->requires;
if ( my $minimum_perl = $requires->{perl} ) {
@@ -160,41 +160,41 @@
} elsif ($type eq 'passthrough') {
printf {$fh} <<'EOF', $subclass_load, ref($build), ref($build);
-
+
unless (eval "use Module::Build::Compat 0.02; 1" ) {
print "This module requires Module::Build to install itself.\n";
-
+
require ExtUtils::MakeMaker;
my $yn = ExtUtils::MakeMaker::prompt
(' Install Module::Build now from CPAN?', 'y');
-
+
unless ($yn =~ /^y/i) {
die " *** Cannot install without Module::Build. Exiting ...\n";
}
-
+
require Cwd;
require File::Spec;
require CPAN;
-
+
# Save this 'cause CPAN will chdir all over the place.
my $cwd = Cwd::cwd();
-
+
CPAN::Shell->install('Module::Build::Compat');
CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
or die "Couldn't install Module::Build, giving up.\n";
-
+
chdir $cwd or die "Cannot chdir() back to $cwd: $!";
}
eval "use Module::Build::Compat 0.02; 1" or die $@;
%s
Module::Build::Compat->run_build_pl(args => \...@argv);
- my $build_script = 'Build';
+ my $build_script = 'Build';
$build_script .= '.com' if $^O eq 'VMS';
exit(0) unless(-e $build_script); # cpantesters convention
require %s;
Module::Build::Compat->write_makefile(build_class => '%s');
EOF
-
+
} elsif ($type eq 'traditional') {
my (%MM_Args, %prereq);
@@ -202,27 +202,27 @@
tie %MM_Args, 'Tie::IxHash'; # Don't care if it fails here
tie %prereq, 'Tie::IxHash'; # Don't care if it fails here
}
-
+
my %name = ($build->module_name
? (NAME => $build->module_name)
: (DISTNAME => $build->dist_name));
-
+
my %version = ($build->dist_version_from
? (VERSION_FROM => $build->dist_version_from)
: (VERSION => $build->dist_version)
);
%MM_Args = (%name, %version);
-
+
%prereq = _merge_prereq( $build->requires, $build->build_requires );
%prereq = map {$_, $prereq{$_}} sort keys %prereq;
-
+
delete $prereq{perl};
$MM_Args{PREREQ_PM} = \%prereq;
-
+
$MM_Args{INSTALLDIRS} = $build->installdirs eq 'core' ? 'perl' :
$build->installdirs;
-
+
$MM_Args{EXE_FILES} = [ sort keys %{$build->script_files} ] if
$build->script_files;
-
+
$MM_Args{PL_FILES} = $build->PL_files || {};
if ($build->recursive_test_files) {
@@ -232,7 +232,7 @@
local $Data::Dumper::Terse = 1;
my $args = Data::Dumper::Dumper(\%MM_Args);
$args =~ s/\{(.*)\}/($1)/s;
-
+
print $fh <<"EOF";
use ExtUtils::MakeMaker;
WriteMakefile
@@ -250,7 +250,7 @@
sub subclass_dir {
my ($self, $build) = @_;
-
+
return (Module::Build::ModuleInfo->find_module_dir_by_name(ref $build)
|| File::Spec->catdir($build->config_dir, 'lib'));
}
@@ -265,7 +265,7 @@
my @out;
foreach my $arg (@_) {
next if $arg eq '';
-
+
my ($key, $val) = ($arg =~ /^(\w+)=(.+)/ ? ($1, $2) :
die "Malformed argument '$arg'");
@@ -320,7 +320,7 @@
}
}
}
- push @out, (config => \%config) if %config;
+ push @out, (config => \%config) if %config;
return @out;
}
@@ -379,19 +379,19 @@
$perl $Build $action
EOF
}
-
+
if ($self->_is_vms_mms) {
# Roll our own .EXPORT as MMS/MMK don't honor that directive.
- $maketext .= "\n.FIRST\n\t\@ $noop\n";
+ $maketext .= "\n.FIRST\n\t\@ $noop\n";
for my $macro (keys %macro_to_build) {
$maketext .= ".IFDEF $macro\n\tDEFINE $macro \"\$($macro)\"\n.ENDIF\n";
}
- $maketext .= "\n";
+ $maketext .= "\n";
}
else {
$maketext .= "\n.EXPORT : " . join(' ', keys %macro_to_build) . "\n\n";
}
-
+
return $maketext;
}
Modified: Module-Build/trunk/lib/Module/Build/Cookbook.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Cookbook.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Cookbook.pm Thu Nov 19 05:19:20 2009
@@ -487,7 +487,7 @@
# Find out what version of Module::Build is installed or fail quietly.
# This should be cross-platform.
- my $Installed_MB =
+ my $Installed_MB =
`$^X -e "eval q{require Module::Build; print Module::Build->VERSION}
or exit 1";
# some operating systems put a newline at the end of every print.
Modified: Module-Build/trunk/lib/Module/Build/ModuleInfo.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/ModuleInfo.pm (original)
+++ Module-Build/trunk/lib/Module/Build/ModuleInfo.pm Thu Nov 19 05:19:20 2009
@@ -23,7 +23,7 @@
\s+ # whitespace
([\w:]+) # a package name
\s* # optional whitespace
- ($V_NUM_REGEXP)? # optional version number
+ ($V_NUM_REGEXP)? # optional version number
\s* # optional whitesapce
; # semicolon line terminator
}x;
@@ -235,7 +235,7 @@
$need_vers = 0 if $vers_pkg eq $pkg;
unless ( defined $vers{$vers_pkg} && length $vers{$vers_pkg} ) {
- $vers{$vers_pkg} =
+ $vers{$vers_pkg} =
$self->_evaluate_version_line( $vers_sig, $vers_fullname, $line );
} else {
# Warn unless the user is using the "$VERSION = eval
@@ -326,7 +326,7 @@
(ref($vsub) eq 'CODE') or
die "failed to build version sub for $self->{filename}";
my $result = eval { $vsub->() };
- die "Could not get version from $self->{filename} by
executing:\n$eval\n\nThe fatal error was: $...@\n"
+ die "Could not get version from $self->{filename} by
executing:\n$eval\n\nThe fatal error was: $...@\n"
if $@;
# Activestate apparently creates custom versions like '1.23_45_01', which
@@ -340,7 +340,7 @@
# Bless it into our own version class
eval { $result = Module::Build::Version->new($result) };
- die "Version '$result' from $self->{filename} does not appear to be
valid:\n$eval\n\nThe fatal error was: $...@\n"
+ die "Version '$result' from $self->{filename} does not appear to be
valid:\n$eval\n\nThe fatal error was: $...@\n"
if $@;
return $result;
Modified: Module-Build/trunk/lib/Module/Build/Notes.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Notes.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Notes.pm Thu Nov 19 05:19:20 2009
@@ -33,10 +33,10 @@
sub access {
my $self = shift;
return $self->read() unless @_;
-
+
my $key = shift;
return $self->read($key) unless @_;
-
+
my $value = shift;
$self->write({ $key => $value });
return $self->read($key);
@@ -61,7 +61,7 @@
return $self->{new}{$key} if exists $self->{new}{$key};
return $self->{disk}{$key};
}
-
+
# Return all data
my $out = (keys %{$self->{new}}
? {%{$self->{disk}}, %{$self->{new}}}
@@ -79,7 +79,7 @@
sub write {
my ($self, $href) = @_;
$href ||= {};
-
+
@{$self->{new}}{ keys %$href } = values %$href; # Merge
# Do some optimization to avoid unnecessary writes
@@ -88,17 +88,17 @@
next if ref $self->{disk}{$key} or !exists $self->{disk}{$key};
delete $self->{new}{$key} if $self->_same($self->{new}{$key},
$self->{disk}{$key});
}
-
+
if (my $file = $self->{file}) {
my ($vol, $dir, $base) = File::Spec->splitpath($file);
$dir = File::Spec->catpath($vol, $dir, '');
return unless -e $dir && -d $dir; # The user needs to arrange for this
return if -e $file and !keys %{ $self->{new} }; # Nothing to do
-
- @{$self->{disk}}{ keys %{$self->{new}} } = values %{$self->{new}}; #
Merge
+
+ @{$self->{disk}}{ keys %{$self->{new}} } = values %{$self->{new}}; # Merge
$self->_dump($file, $self->{disk});
-
+
$self->{new} = {};
}
return $self->read;
@@ -106,7 +106,7 @@
sub _dump {
my ($self, $file, $data) = @_;
-
+
my $fh = IO::File->new("> $file") or die "Can't create '$file': $!";
print {$fh} Module::Build::Dumper->_data_dump($data);
}
@@ -126,7 +126,7 @@
# strip out private POD markers we use to keep pod from being
# recognized for *this* source file
$template =~ s{$_\n}{} for '=begin private', '=end private';
-
+
my $fh = IO::File->new("> $args{file}") or die "Can't create '$args{file}':
$!";
print {$fh} $template;
print {$fh} "\n__DATA__\n";
@@ -218,18 +218,18 @@
sub feature {
my ($package, $key) = @_;
return $features->{$key} if exists $features->{$key};
-
+
my $info = $auto_features->{$key} or return 0;
-
+
# Under perl 5.005, each(%$foo) isn't working correctly when $foo
# was reanimated with Data::Dumper and eval(). Not sure why, but
# copying to a new hash seems to solve it.
my %info = %$info;
-
+
require Module::Build; # XXX should get rid of this
while (my ($type, $prereqs) = each %info) {
next if $type eq 'description' || $type eq 'recommends';
-
+
my %p = %$prereqs; # Ditto here.
while (my ($modname, $spec) = each %p) {
my $status = Module::Build->check_installed_status($modname, $spec);
@@ -251,10 +251,10 @@
use NOTES_NAME;
$value = NOTES_NAME->config('foo');
$value = NOTES_NAME->feature('bar');
-
+
@names = NOTES_NAME->config_names;
@names = NOTES_NAME->feature_names;
-
+
NOTES_NAME->set_config(foo => $new_value);
NOTES_NAME->set_feature(bar => $new_value);
NOTES_NAME->write; # Save changes
Modified: Module-Build/trunk/lib/Module/Build/PPMMaker.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/PPMMaker.pm (original)
+++ Module-Build/trunk/lib/Module/Build/PPMMaker.pm Thu Nov 19 05:19:20 2009
@@ -137,7 +137,7 @@
'<' => '<',
);
my $rx = join '|', keys %escapes;
-
+
sub _simple_xml_escape {
$_[1] =~ s/($rx)/$escapes{$1}/go;
}
Modified: Module-Build/trunk/lib/Module/Build/Platform/MacOS.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Platform/MacOS.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Platform/MacOS.pm Thu Nov 19
05:19:20 2009
@@ -15,17 +15,17 @@
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
-
+
# $Config{sitelib} and $Config{sitearch} are, unfortunately, missing.
foreach ('sitelib', 'sitearch') {
$self->config($_ => $self->config("install$_"))
unless $self->config($_);
}
-
+
# For some reason $Config{startperl} is filled with a bunch of crap.
(my $sp = $self->config('startperl')) =~ s/.*Exit \{Status\}\s//;
$self->config(startperl => $sp);
-
+
return $self;
}
@@ -42,7 +42,7 @@
if( !...@_ and !...@argv ) {
require MacPerl;
-
+
# What comes first in the action list.
my @action_list = qw(build test install);
my %actions = map {+($_, 1)} $self->known_actions;
@@ -53,17 +53,17 @@
foreach (@action_list) {
$_ .= ' *' if $toolserver{$_};
}
-
+
my $cmd = MacPerl::Pick("What build command? ('*' requires ToolServer)",
@action_list);
return unless defined $cmd;
$cmd =~ s/ \*$//;
$ARGV[0] = ($cmd);
-
+
my $args = MacPerl::Ask('Any extra arguments? (ie. verbose=1)', '');
return unless defined $args;
push @ARGV, $self->split_like_shell($args);
}
-
+
$self->SUPER::dispatch(@_);
}
@@ -82,10 +82,10 @@
sub ACTION_install {
my $self = shift;
-
+
return $self->SUPER::ACTION_install(@_)
if eval {ExtUtils::Install->VERSION('1.30'); 1};
-
+
local $^W = 0; # Avoid a 'redefine' warning
local *ExtUtils::Install::find = sub {
my ($code, @dirs) = @_;
@@ -94,7 +94,7 @@
return File::Find::find($code, @dirs);
};
-
+
return $self->SUPER::ACTION_install(@_);
}
Modified: Module-Build/trunk/lib/Module/Build/Platform/VMS.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Platform/VMS.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Platform/VMS.pm Thu Nov 19 05:19:20 2009
@@ -131,22 +131,22 @@
# or if we get a single arg that is an array reference, quote the
# elements of it and return the reference.
my ($self, @args) = @_;
- my $got_arrayref = (scalar(@args) == 1
- && UNIVERSAL::isa($args[0], 'ARRAY'))
- ? 1
+ my $got_arrayref = (scalar(@args) == 1
+ && UNIVERSAL::isa($args[0], 'ARRAY'))
+ ? 1
: 0;
# Do not quote qualifiers that begin with '/'.
- map { if (!/^\//) {
+ map { if (!/^\//) {
$_ =~ s/\"/""/g; # escape C<"> by doubling
$_ = q(").$_.q(");
}
}
- ($got_arrayref ? @{$args[0]}
+ ($got_arrayref ? @{$args[0]}
: @args
);
- return $got_arrayref ? $args[0]
+ return $got_arrayref ? $args[0]
: join(' ', @args);
}
@@ -261,7 +261,7 @@
=item _infer_xs_spec
-Inherit the standard version but tweak the library file name to be
+Inherit the standard version but tweak the library file name to be
something Dynaloader can find.
=cut
@@ -306,7 +306,7 @@
=item dist_dir
-Inherit the standard version but replace embedded dots with underscores
because
+Inherit the standard version but replace embedded dots with underscores because
a dot is the directory delimiter on VMS.
=cut
@@ -321,7 +321,7 @@
=item man3page_name
-Inherit the standard version but chop the extra manpage delimiter off the
front if
+Inherit the standard version but chop the extra manpage delimiter off the
front if
there is one. The VMS version of splitdir('[.foo]') returns '', 'foo'.
=cut
@@ -423,7 +423,7 @@
$newdirs = File::Spec::Unix->catdir(@hdirs, @backup, @dirs);
}
-
+
# Now put the two cases back together
$arg = File::Spec::Unix->catpath($hvol, $newdirs, $file);
@@ -502,7 +502,7 @@
$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;
+ $unix_rpt = $env_unix_rpt =~ /^[ET1]/i;
}
return $unix_rpt;
}
@@ -515,7 +515,7 @@
$efs = VMS::Feature::current("efs_charset");
} else {
my $env_efs = $ENV{'DECC$EFS_CHARSET'} || '';
- $efs = $env_efs =~ /^[ET1]/i;
+ $efs = $env_efs =~ /^[ET1]/i;
}
return $efs;
}
Modified: Module-Build/trunk/lib/Module/Build/Platform/Windows.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Platform/Windows.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Platform/Windows.pm Thu Nov 19
05:19:20 2009
@@ -207,22 +207,22 @@
# into words. The algorithm below was bashed out by Randy and Ken
# (mostly Randy), and there are a lot of regression tests, so we
# should feel free to adjust if desired.
-
+
(my $self, local $_) = @_;
-
+
return @$_ if defined() && UNIVERSAL::isa($_, 'ARRAY');
-
+
my @argv;
return @argv unless defined() && length();
-
+
my $arg = '';
my( $i, $quote_mode ) = ( 0, 0 );
-
+
while ( $i < length() ) {
-
+
my $ch = substr( $_, $i , 1 );
my $next_ch = substr( $_, $i+1, 1 );
-
+
if ( $ch eq '\\' && $next_ch eq '"' ) {
$arg .= '"';
$i++;
@@ -249,10 +249,10 @@
} else {
$arg .= $ch;
}
-
+
$i++;
}
-
+
push( @argv, $arg ) if defined( $arg ) && length( $arg );
return @argv;
}
Modified: Module-Build/trunk/lib/Module/Build/PodParser.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/PodParser.pm (original)
+++ Module-Build/trunk/lib/Module/Build/PodParser.pm Thu Nov 19 05:19:20 2009
@@ -33,13 +33,13 @@
sub _myparse_from_filehandle {
my ($self, $fh) = @_;
-
+
local $_;
while (<$fh>) {
next unless /^=(?!cut)/ .. /^=cut/; # in POD
last if ($self->{abstract}) = /^ (?: [a-z:]+ \s+ - \s+ ) (.*\S) /ix;
}
-
+
my @author;
while (<$fh>) {
next unless /^=head1\s+AUTHORS?/i ... /^=/;
@@ -48,16 +48,16 @@
}
return unless @author;
s/^\s+|\s+$//g foreach @author;
-
+
$self->{author} = \...@author;
-
+
return;
}
sub get_abstract {
my $self = shift;
return $self->{abstract} if defined $self->{abstract};
-
+
$self->parse_from_filehandle($self->{fh});
return $self->{abstract};
@@ -66,7 +66,7 @@
sub get_author {
my $self = shift;
return $self->{author} if defined $self->{author};
-
+
$self->parse_from_filehandle($self->{fh});
return $self->{author} || [];
Modified: Module-Build/trunk/lib/Module/Build/Version.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Version.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Version.pm Thu Nov 19 05:19:20 2009
@@ -81,7 +81,7 @@
map { $args{$_} = 1 } @_
}
else { # no parameters at all on use line
- %args =
+ %args =
(
qv => 1,
'UNIVERSAL::VERSION' => 1,
@@ -89,9 +89,9 @@
}
my $callpkg = caller();
-
+
if (exists($args{declare})) {
- *{$callpkg."::declare"} =
+ *{$callpkg."::declare"} =
sub {return $class->declare(shift) }
unless defined(&{$callpkg.'::declare'});
}
@@ -155,7 +155,7 @@
{
my ($class, $value) = @_;
my $self = bless ({}, ref ($class) || $class);
-
+
if ( ref($value) && eval('$value->isa("version")') ) {
# Can copy the elements directly
$self->{version} = [ @{$value->{version} } ];
@@ -193,7 +193,7 @@
$value = sprintf("%.9f",$value);
$value =~ s/(0+)$//; # trim trailing zeros
}
-
+
# This is not very efficient, but it is morally equivalent
# to the XS code (as that is the reference implementation).
# See vutil/vutil.c for details
@@ -215,7 +215,7 @@
}
$start = $last = $pos = $s;
-
+
# pre-scan the input string to check for decimals/underbars
while ( substr($value,$pos,1) =~ /[._\d,]/ ) {
if ( substr($value,$pos,1) eq '.' ) {
@@ -300,7 +300,7 @@
$orev = $rev;
$rev += substr($value,$s,1) * $mult;
$mult /= 10;
- if ( abs($orev) > abs($rev)
+ if ( abs($orev) > abs($rev)
|| abs($rev) > abs($VERSION_MAX) ) {
if ( warnings::enabled("overflow") ) {
require Carp;
@@ -320,7 +320,7 @@
$orev = $rev;
$rev += substr($value,$end,1) * $mult;
$mult *= 10;
- if ( abs($orev) > abs($rev)
+ if ( abs($orev) > abs($rev)
|| abs($rev) > abs($VERSION_MAX) ) {
if ( warnings::enabled("overflow") ) {
require Carp;
@@ -335,15 +335,15 @@
# Append revision
push @{$self->{version}}, $rev;
- if ( substr($value,$pos,1) eq '.'
+ if ( substr($value,$pos,1) eq '.'
&& substr($value,$pos+1,1) =~ /\d/ ) {
$s = ++$pos;
}
- elsif ( substr($value,$pos,1) eq '_'
+ elsif ( substr($value,$pos,1) eq '_'
&& substr($value,$pos+1,1) =~ /\d/ ) {
$s = ++$pos;
}
- elsif ( substr($value,$pos,1) eq ','
+ elsif ( substr($value,$pos,1) eq ','
&& substr($value,$pos+1,1) =~ /\d/ ) {
$s = ++$pos;
}
@@ -400,7 +400,7 @@
*parse = \&new;
-sub numify
+sub numify
{
my ($self) = @_;
unless (_verify($self)) {
@@ -441,7 +441,7 @@
return $string;
}
-sub normal
+sub normal
{
my ($self) = @_;
unless (_verify($self)) {
@@ -484,9 +484,9 @@
require Carp;
Carp::croak("Invalid version object");
}
- return exists $self->{original}
- ? $self->{original}
- : exists $self->{qv}
+ return exists $self->{original}
+ ? $self->{original}
+ : exists $self->{qv}
? $self->normal
: $self->numify;
}
@@ -524,8 +524,8 @@
}
# tiebreaker for alpha with identical terms
- if ( $retval == 0
- && $l == $r
+ if ( $retval == 0
+ && $l == $r
&& $left->{version}[$m] == $right->{version}[$m]
&& ( $lalpha || $ralpha ) ) {
@@ -557,7 +557,7 @@
}
}
- return $retval;
+ return $retval;
}
sub vbool {
@@ -565,8 +565,8 @@
return vcmp($self,$self->new("0"),1);
}
-sub vnoop {
- require Carp;
+sub vnoop {
+ require Carp;
Carp::croak("operation not supported with version object");
}
@@ -644,7 +644,7 @@
if ( defined $req ) {
unless ( defined $version ) {
require Carp;
- my $msg = $] < 5.006
+ my $msg = $] < 5.006
? "$class version $req required--this is only version "
: "$class does not define \$$class\::VERSION"
."--version check failed";
@@ -662,14 +662,14 @@
if ( $req > $version ) {
require Carp;
if ( $req->is_qv ) {
- Carp::croak(
+ Carp::croak(
sprintf ("%s version %s required--".
"this is only version %s", $class,
$req->normal, $version->normal)
);
}
else {
- Carp::croak(
+ Carp::croak(
sprintf ("%s version %s required--".
"this is only version %s", $class,
$req->stringify, $version->stringify)
Modified: Module-Build/trunk/lib/Module/Build/YAML.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/YAML.pm (original)
+++ Module-Build/trunk/lib/Module/Build/YAML.pm Thu Nov 19 05:19:20 2009
@@ -15,7 +15,7 @@
# Class structure
require 5.004;
-
+
$Module::Build::YAML::VERSION = '1.40';
# Error storage
@@ -561,7 +561,7 @@
if ( wantarray ) {
return @$self;
} else {
- # Return only the last document to match YAML.pm,
+ # Return only the last document to match YAML.pm,
return $self->[-1];
}
}
Modified: Module-Build/trunk/lib/inc/latest.pm
==============================================================================
--- Module-Build/trunk/lib/inc/latest.pm (original)
+++ Module-Build/trunk/lib/inc/latest.pm Thu Nov 19 05:19:20 2009
@@ -33,7 +33,7 @@
goto $import;
}
- # author mode - just record and load the modules
+ # author mode - just record and load the modules
push(@loaded_modules, $mod);
require inc::latest::private;
goto \&inc::latest::private::_load_module;
@@ -77,7 +77,7 @@
sub bundle_module {
my ($package, $module, $where) = @_;
-
+
# create inc/inc_$foo
(my $dist = $module) =~ s{::}{-}g;
my $inc_lib = File::Spec->catdir($where,"inc_$dist");
@@ -132,7 +132,7 @@
The C<inc::latest> module helps bootstrap configure-time dependencies for CPAN
distributions. These dependencies get bundled into the C<inc> directory within
-a distribution and are used by Build.PL (or Makefile.PL).
+a distribution and are used by Build.PL (or Makefile.PL).
Arguments to C<inc::latest> are module names that are checked against both the
current C<@INC> array and against specially-named directories in C<inc>. If
Modified: Module-Build/trunk/lib/inc/latest/private.pm
==============================================================================
--- Module-Build/trunk/lib/inc/latest/private.pm (original)
+++ Module-Build/trunk/lib/inc/latest/private.pm Thu Nov 19 05:19:20 2009
@@ -21,7 +21,7 @@
# A bundled copy must be present
my ($bundled, $bundled_dir) = $package->_search_bundled($file)
or die "No bundled copy of $mod found";
-
+
my $from_inc = $package->_search_INC($file);
unless ($from_inc) {
# Only bundled is available
@@ -66,7 +66,7 @@
while (defined(my $e = readdir DH)) {
next unless $e =~ /^inc_/;
my $try = File::Spec->catfile($mypath, $e, $file);
-
+
return($try, File::Spec->catdir($mypath, $e)) if -e $try;
}
return;
Modified: Module-Build/trunk/scripts/config_data
==============================================================================
--- Module-Build/trunk/scripts/config_data (original)
+++ Module-Build/trunk/scripts/config_data Thu Nov 19 05:19:20 2009
@@ -92,7 +92,7 @@
$mod =~ /^([\w:]+)$/
or die "Invalid module name '$mod'";
-
+
my $cf = $mod . "::ConfigData";
eval "require $cf";
die $@ if $@;
@@ -104,10 +104,10 @@
my %defs = @_;
my $out = "\nUsage: $0 [options]\n\n Options include:\n";
-
+
foreach my $name (sort keys %defs) {
$out .= " --$name";
-
+
for ($defs{$name}{type}) {
/^=s$/ and $out .= " <string>";
/^=s%$/ and $out .= " <string>=<value>";
@@ -144,11 +144,11 @@
# Get config/feature values
config_data --module Foo::Bar --feature bazzable
config_data --module Foo::Bar --config magic_number
-
+
# Set config/feature values
config_data --module Foo::Bar --set_feature bazzable=1
config_data --module Foo::Bar --set_config magic_number=42
-
+
# Print a usage message
config_data --help
Modified: Module-Build/trunk/t/basic.t
==============================================================================
--- Module-Build/trunk/t/basic.t (original)
+++ Module-Build/trunk/t/basic.t Thu Nov 19 05:19:20 2009
@@ -146,7 +146,7 @@
is $mb->args('dee'), 'goo';
is $mb->destdir, 'yo';
my %runtime = $mb->runtime_params;
- is_deeply \%runtime,
+ is_deeply \%runtime,
{
verbose => 1,
destdir => 'yo',
Modified: Module-Build/trunk/t/compat.t
==============================================================================
--- Module-Build/trunk/t/compat.t (original)
+++ Module-Build/trunk/t/compat.t Thu Nov 19 05:19:20 2009
@@ -67,7 +67,7 @@
# Test with requires and PL_files
my $distname = $dist->name;
-$dist->change_build_pl({
+$dist->change_build_pl({
module_name => $distname,
license => 'perl',
requires => {
@@ -104,7 +104,7 @@
######################
-$dist->change_build_pl({
+$dist->change_build_pl({
module_name => $distname,
license => 'perl',
});
@@ -140,7 +140,7 @@
});
foreach my $style ('passthrough', 'small') {
create_makefile_pl($style, $foo_builder);
-
+
# Should fail with "can't find Foo/Builder.pm"
my $result;
my ($stdout, $stderr ) = stdout_stderr_of (sub {
@@ -149,7 +149,7 @@
ok ! $result, "Makefile.PL failed";
like $stderr, qr{Foo/Builder.pm}, "custom builder wasn't found";
}
-
+
# Now make sure it can actually work.
my $bar_builder;
stdout_stderr_of( sub {
@@ -243,7 +243,7 @@
if ExtUtils::Install->VERSION < 1.32;
for my $c (@cases) {
- my @make_args = @{$c->{args}};
+ my @make_args = @{$c->{args}};
if ($is_vms_mms) { # VMS MMK/MMS macros use different syntax.
$make_args[0] = '/macro=("' . join('","',@make_args) . '")';
pop @make_args while scalar(@make_args) > 1;
@@ -284,7 +284,7 @@
my $b2 = Module::Build->current;
ok $b2->install_base, "install_base set";
unlike $b2->install_base, qr/^~/, "Tildes should be expanded";
-
+
stdout_stderr_of( sub { $mb->do_system(@make, 'realclean'); } );
ok ! -e $makefile, "$makefile shouldn't exist";
@@ -341,7 +341,7 @@
$opts{PL_files} ||= {};
foreach my $type (@makefile_types) {
- # Create M::B instance
+ # Create M::B instance
my $mb;
stdout_stderr_of( sub {
$mb = Module::Build->new_from_context;
@@ -355,7 +355,7 @@
test_makefile_creation($mb);
test_makefile_prereq_pm( _merge_prereqs($opts{requires},
$opts{build_requires}) );
test_makefile_pl_files( $opts{PL_files} ) if $type eq 'traditional';
-
+
my ($output,$success);
# Capture output to keep our STDOUT clean
$output = stdout_stderr_of( sub {
@@ -373,7 +373,7 @@
});
ok $success, "make test ran without error";
like uc $output, qr{DONE\.|SUCCESS}, "make test output indicated success";
-
+
$output = stdout_stderr_of( sub {
$success = $mb->do_system(@make, 'realclean');
});
@@ -381,7 +381,7 @@
# Try again with some Makefile.PL arguments
test_makefile_creation($mb, [], 'INSTALLDIRS=vendor', 'realclean');
-
+
# Try again using distclean
test_makefile_creation($mb, [], '', 'distclean');
@@ -392,7 +392,7 @@
sub test_makefile_creation {
my ($build, $preargs, $postargs, $cleanup) = @_;
-
+
my ($output, $result);
# capture output to avoid polluting our test output
$output = stdout_stderr_of( sub {
@@ -404,7 +404,7 @@
}
ok $result, $label;
ok -e $makefile, "$makefile exists";
-
+
if ($cleanup) {
# default to 'realclean' unless we recognize the clean method
$cleanup = 'realclean' unless $cleanup =~ /^(dist|real)clean$/;
@@ -457,7 +457,7 @@
}
sub find_params_in_makefile {
- my $fh = IO::File->new( $makefile, 'r' )
+ my $fh = IO::File->new( $makefile, 'r' )
or die "Can't read $makefile: $!";
local($/) = "\n";
Modified: Module-Build/trunk/t/destinations.t
==============================================================================
--- Module-Build/trunk/t/destinations.t (original)
+++ Module-Build/trunk/t/destinations.t Thu Nov 19 05:19:20 2009
@@ -242,14 +242,14 @@
my %test_config;
foreach my $type (keys %$defaults) {
my $prefix = shift @prefixes || [qw(foo bar)];
- $test_config{$type} = catdir(File::Spec->rootdir, @$prefix,
+ $test_config{$type} = catdir(File::Spec->rootdir, @$prefix,
@{$defaults->{$type}});
}
# Poke at the innards of MB to change the default install locations.
my $old = $mb->install_sets->{site};
$mb->install_sets->{site} = \%test_config;
- $mb->config(siteprefixexp => catdir(File::Spec->rootdir,
+ $mb->config(siteprefixexp => catdir(File::Spec->rootdir,
'wierd', 'prefix'));
my $prefix = catdir('another', 'prefix');
Modified: Module-Build/trunk/t/ext.t
==============================================================================
--- Module-Build/trunk/t/ext.t (original)
+++ Module-Build/trunk/t/ext.t Thu Nov 19 05:19:20 2009
@@ -4,7 +4,7 @@
use lib 't/lib';
use MBTest;
-my @unix_splits =
+my @unix_splits =
(
{ q{one t'wo th'ree f"o\"ur " "five" } => [ 'one', 'two three', 'fo"ur ',
'five' ] },
{ q{ foo bar } => [ 'foo', 'bar'
] },
@@ -13,7 +13,7 @@
{ qq{one\\\ntwo} => [ "one\ntwo"
] }, # TODO
);
-my @win_splits =
+my @win_splits =
(
{ 'a" "b\\c" "d' => [ 'a b\c d' ] },
{ '"a b\\c d"' => [ 'a b\c d' ] },
Modified: Module-Build/trunk/t/extend.t
==============================================================================
--- Module-Build/trunk/t/extend.t (original)
+++ Module-Build/trunk/t/extend.t Thu Nov 19 05:19:20 2009
@@ -98,15 +98,15 @@
use vars qw($VERSION @ISA);
@ISA = qw(Module::Build);
$VERSION = 0.01;
-
+
# Add a new property.
ok(__PACKAGE__->add_property('foo'));
# Add a new property with a default value.
ok(__PACKAGE__->add_property('bar', 'hey'));
# Add a hash property.
ok(__PACKAGE__->add_property('hash', {}));
-
-
+
+
# Catch an exception adding an existing property.
eval { __PACKAGE__->add_property('module_name')};
like "$@", qr/already exists/;
@@ -118,7 +118,7 @@
use vars qw($VERSION @ISA);
@ISA = qw(Module::Build);
$VERSION = 0.01;
-
+
# Add a new property with a different default value than MBSub has.
ok(__PACKAGE__->add_property('bar', 'yow'));
}
@@ -130,30 +130,30 @@
isa_ok $mb, 'MBSub';
ok $mb->valid_property('foo');
can_ok $mb, 'module_name';
-
+
# Check foo property.
can_ok $mb, 'foo';
ok ! $mb->foo;
ok $mb->foo(1);
ok $mb->foo;
-
+
# Check bar property.
can_ok $mb, 'bar';
is $mb->bar, 'hey';
ok $mb->bar('you');
is $mb->bar, 'you';
-
+
# Check hash property.
ok $mb = MBSub->new(
module_name => $dist->name,
hash => { foo => 'bar', bin => 'foo'}
);
-
+
can_ok $mb, 'hash';
isa_ok $mb->hash, 'HASH';
is $mb->hash->{foo}, 'bar';
is $mb->hash->{bin}, 'foo';
-
+
# Check hash property passed via the command-line.
{
local @ARGV = (
@@ -167,7 +167,7 @@
isa_ok $mb->hash, 'HASH';
is $mb->hash->{foo}, 'bar';
is $mb->hash->{bin}, 'foo';
-
+
# Make sure that a different subclass with the same named property has a
# different default.
ok $mb = MBSub2->new( module_name => $dist->name );
Modified: Module-Build/trunk/t/files.t
==============================================================================
--- Module-Build/trunk/t/files.t (original)
+++ Module-Build/trunk/t/files.t Thu Nov 19 05:19:20 2009
@@ -19,19 +19,19 @@
{
# Make sure copy_if_modified() can handle spaces in filenames
-
+
my @tmp;
push @tmp, MBTest->tmpdir for (0 .. 1);
-
+
my $filename = 'file with spaces.txt';
-
+
my $file = File::Spec->catfile($tmp[0], $filename);
my $fh = IO::File->new($file, '>') or die "Can't create $file: $!";
print $fh "Foo\n";
$fh->close;
ok -e $file;
-
-
+
+
my $file2 = $mb->copy_if_modified(from => $file, to_dir => $tmp[1]);
ok $file2;
ok -e $file2;
@@ -41,7 +41,7 @@
# Try some dir_contains() combinations
my $first = File::Spec->catdir('', 'one', 'two');
my $second = File::Spec->catdir('', 'one', 'two', 'three');
-
+
ok( Module::Build->dir_contains($first, $second) );
}
Modified: Module-Build/trunk/t/help.t
==============================================================================
--- Module-Build/trunk/t/help.t (original)
+++ Module-Build/trunk/t/help.t Thu Nov 19 05:19:20 2009
@@ -51,7 +51,7 @@
sub ACTION_bar { die "barey" }
sub ACTION_baz { die "bazey" }
- # guess we can have extra pod later
+ # guess we can have extra pod later
=over
@@ -211,7 +211,7 @@
sub ACTION_baz { die "bazey" }
sub ACTION_batz { die "batzey" }
- # guess we can have extra pod later
+ # guess we can have extra pod later
# Though, I do wonder whether we should allow them to mix...
# maybe everything should have to be head2?
@@ -243,7 +243,7 @@
bar => "\n=head3 bears\n\nBe careful with bears.\n",
baz => "\n=head4 What's a baz\\?\n",
);
-
+
foreach my $action (qw(foo bar baz)) {
my $doc = $mb->get_action_docs($action);
ok($doc, "got doc for '$action'");
Modified: Module-Build/trunk/t/install.t
==============================================================================
--- Module-Build/trunk/t/install.t (original)
+++ Module-Build/trunk/t/install.t Thu Nov 19 05:19:20 2009
@@ -61,15 +61,15 @@
{
eval {$mb->dispatch('install', destdir => $destdir)};
is $@, '';
-
+
my @libdir = strip_volume( $mb->install_destination('lib') );
my $install_to = File::Spec->catfile($destdir, @libdir, $dist->name ) .
'.pm';
file_exists($install_to);
-
+
local @INC = (@INC, File::Spec->catdir($destdir, @libdir));
eval "require @{[$dist->name]}";
is $@, '';
-
+
# Make sure there's a packlist installed
my $archdir = $mb->install_destination('arch');
my @dirs = strip_volume($archdir);
@@ -106,19 +106,19 @@
{
# Test the ConfigData stuff
-
+
$mb->config_data(foo => 'bar');
$mb->features(baz => 1);
$mb->auto_features(auto_foo => {requires => {'File::Spec' => 0}});
eval {$mb->dispatch('install', destdir => $destdir)};
is $@, '';
-
+
my @libdir = strip_volume( $mb->install_destination('lib') );
local @INC = (@INC, File::Spec->catdir($destdir, @libdir));
eval "require @{[$dist->name]}::ConfigData";
is $mb->feature('auto_foo'), 1;
-
+
SKIP: {
skip $@, 5 if @_;
@@ -153,7 +153,7 @@
my $libdir = File::Spec->catdir('', 'foo', 'lib');
eval {$mb->run_perl_script('Build.PL', [], ['--install_path',
"lib=$libdir"])};
is $@, '';
-
+
my $cmd = 'Build';
$cmd .= ".COM" if $^O eq 'VMS';
eval {$mb->run_perl_script($cmd, [], ['install', '--destdir', $destdir])};
@@ -165,10 +165,10 @@
eval {$mb->run_perl_script($cmd, [], ['install', '--destdir', $destdir,
'--install_base', $basedir])};
is $@, '';
-
+
$install_to = File::Spec->catfile($destdir, $libdir, $dist->name ) . '.pm';
is -e $install_to, 1, "Look for file at $install_to";
-
+
eval {$mb->dispatch('realclean')};
is $@, '';
}
@@ -214,11 +214,11 @@
$expect = lc($expect) if $^O eq 'VMS';
is $pods->{$expect}, $expect;
-
+
my $pms = $mb->_find_file_by_type('awefawef', 'lib');
ok $pms;
is keys %$pms, 0;
-
+
$pms = $mb->_find_file_by_type('pod', 'awefawef');
ok $pms;
is keys %$pms, 0;
Modified: Module-Build/trunk/t/install_extra_target.t
==============================================================================
--- Module-Build/trunk/t/install_extra_target.t (original)
+++ Module-Build/trunk/t/install_extra_target.t Thu Nov 19 05:19:20 2009
@@ -83,7 +83,7 @@
$build->create_build_script();
===EOF===
-
+
#Test Build.PL exists ok?
$dist->add_file("etc/config", <<'===EOF===');
Modified: Module-Build/trunk/t/manifypods.t
==============================================================================
--- Module-Build/trunk/t/manifypods.t (original)
+++ Module-Build/trunk/t/manifypods.t Thu Nov 19 05:19:20 2009
@@ -118,7 +118,7 @@
ok ! $mb->contains_pod($from), "$from should not contain POD";
next;
}
-
+
my $to = File::Spec->catfile('blib', ($from =~ /^[\.\/\[]*lib/ ? 'libdoc' :
'bindoc'), $v);
ok $mb->contains_pod($from), "$from should contain POD";
ok -e $to, "Created $to manpage";
Modified: Module-Build/trunk/t/metadata.t
==============================================================================
--- Module-Build/trunk/t/metadata.t (original)
+++ Module-Build/trunk/t/metadata.t Thu Nov 19 05:19:20 2009
@@ -9,7 +9,7 @@
my $tmp = MBTest->tmpdir;
-my %metadata =
+my %metadata =
(
module_name => 'Simple',
dist_version => '3.14159265',
@@ -62,8 +62,8 @@
{
my $mb_prereq = { 'Module::Build' => $Module::Build::VERSION };
- my $mb_config_req = {
- 'Module::Build' => int($Module::Build::VERSION * 100)/100
+ my $mb_config_req = {
+ 'Module::Build' => int($Module::Build::VERSION * 100)/100
};
my $node = $mb->prepare_metadata( );
Modified: Module-Build/trunk/t/metadata2.t
==============================================================================
--- Module-Build/trunk/t/metadata2.t (original)
+++ Module-Build/trunk/t/metadata2.t Thu Nov 19 05:19:20 2009
@@ -42,12 +42,12 @@
my $provides; # Used a bunch of times below
-my $pod_text = <<'---';
+my $pod_text = <<'---';
=pod
=head1 NAME
-Simple - A simple module
+Simple - A simple module
=head1 AUTHOR
@@ -77,11 +77,11 @@
ok( -e "lib/Simple.pm", "Creating Simple.pm" );
my $mb = Module::Build->new_from_context;
$mb->do_create_readme;
-like( slurp("README"), qr/NAME/,
+like( slurp("README"), qr/NAME/,
"Generating README from .pm");
-is( $mb->dist_author->[0], 'Simple Simon <[email protected]>',
+is( $mb->dist_author->[0], 'Simple Simon <[email protected]>',
"Extracting AUTHOR from .pm");
-is( $mb->dist_abstract, "A simple module",
+is( $mb->dist_abstract, "A simple module",
"Extracting abstract from .pm");
# .pm File with pod in separate file
@@ -99,12 +99,12 @@
$mb = Module::Build->new_from_context;
$mb->do_create_readme;
like( slurp("README"), qr/NAME/, "Generating README from .pod");
-is( $mb->dist_author->[0], 'Simple Simon <[email protected]>',
+is( $mb->dist_author->[0], 'Simple Simon <[email protected]>',
"Extracting AUTHOR from .pod");
-is( $mb->dist_abstract, "A simple module",
+is( $mb->dist_abstract, "A simple module",
"Extracting abstract from .pod");
-# .pm File with pod and separate pod file
+# .pm File with pod and separate pod file
#
$dist->change_file( 'lib/Simple.pm', <<'---' );
Modified: Module-Build/trunk/t/pod_parser.t
==============================================================================
--- Module-Build/trunk/t/pod_parser.t (original)
+++ Module-Build/trunk/t/pod_parser.t Thu Nov 19 05:19:20 2009
@@ -10,14 +10,14 @@
{
package IO::StringBased;
-
+
sub TIEHANDLE {
my ($class, $string) = @_;
return bless {
data => [ map "$_\n", split /\n/, $string],
}, $class;
}
-
+
sub READLINE {
shift @{ shift()->{data} };
}
@@ -59,7 +59,7 @@
my $pp = Module::Build::PodParser->new(fh => \*FH);
ok $pp, 'object created';
-
+
is_deeply $pp->get_author, [], 'author';
is $pp->get_abstract, 'Perl extension for blah blah blah', 'abstract';
}
Modified: Module-Build/trunk/t/runthrough.t
==============================================================================
--- Module-Build/trunk/t/runthrough.t (original)
+++ Module-Build/trunk/t/runthrough.t Thu Nov 19 05:19:20 2009
@@ -67,7 +67,7 @@
$vms_efs = VMS::Feature::current("efs_charset");
} else {
my $efs_charset = $ENV{'DECC$EFS_CHARSET'} || '';
- $vms_efs = $efs_charset =~ /^[ET1]/i;
+ $vms_efs = $efs_charset =~ /^[ET1]/i;
}
$Is_VMS_noefs = 0 if $vms_efs;
if ($Is_VMS_noefs) {
@@ -94,7 +94,7 @@
};
$all_ok &&= is($@, '');
$all_ok &&= like($output, qr/all tests successful/i);
-
+
# This is the output of lib/Simple/Script.PL
$all_ok &&= ok(-e $mb->localize_file_path('lib/Simple/Script'));
@@ -113,16 +113,16 @@
stdout_of( sub { $mb->dispatch('disttest') } )
};
is $@, '';
-
+
# After a test, the distdir should contain a blib/ directory
ok -e File::Spec->catdir('Simple-0.01', 'blib');
-
+
eval {$mb->dispatch('distdir')};
is $@, '';
-
+
# The 'distdir' should contain a lib/ directory
ok -e File::Spec->catdir('Simple-0.01', 'lib');
-
+
# The freshly run 'distdir' should never contain a blib/ directory, or
# else it could get into the tarball
ok ! -e File::Spec->catdir('Simple-0.01', 'blib');
@@ -147,11 +147,11 @@
# Make sure the 'script' file was recognized as a script.
my $scripts = $mb->script_files;
ok $scripts->{script};
-
+
# Check that a shebang line is rewritten
my $blib_script = File::Spec->catfile( qw( blib script script ) );
ok -e $blib_script;
-
+
SKIP: {
skip("We do not rewrite shebang on VMS", 1) if $^O eq 'VMS';
my $fh = IO::File->new($blib_script);
Modified: Module-Build/trunk/t/script_dist.t
==============================================================================
--- Module-Build/trunk/t/script_dist.t (original)
+++ Module-Build/trunk/t/script_dist.t Thu Nov 19 05:19:20 2009
@@ -15,7 +15,7 @@
my $dist = DistGen->new(dir => MBTest->tmpdir);
$dist->add_file('bin/foo', undent(<<' ---'));
#!/usr/bin/perl
-
+
package bin::foo;
$VERSION = 0.01;
Modified: Module-Build/trunk/t/signature.t
==============================================================================
--- Module-Build/trunk/t/signature.t (original)
+++ Module-Build/trunk/t/signature.t Thu Nov 19 05:19:20 2009
@@ -42,7 +42,7 @@
is $@, '';
chdir( $mb->dist_dir ) or die "Can't chdir to '@{[$mb->dist_dir]}': $!";
ok -e 'SIGNATURE';
-
+
# Make sure the signature actually verifies
ok Module::Signature::verify() == Module::Signature::SIGNATURE_OK();
$dist->chdir_in;
@@ -88,10 +88,10 @@
license => 'perl',
});
$dist->regen;
-
+
my $mb = Module::Build->new_from_context;
is $mb->{properties}{sign}, 1;
-
+
eval {$mb->dispatch('distdir')};
is $@, '';
chdir( $mb->dist_dir ) or die "Can't chdir to '@{[$mb->dist_dir]}': $!";
Modified: Module-Build/trunk/t/test_type.t
==============================================================================
--- Module-Build/trunk/t/test_type.t (original)
+++ Module-Build/trunk/t/test_type.t Thu Nov 19 05:19:20 2009
@@ -21,7 +21,7 @@
$dist->add_file('t/special_ext.st', <<'---' );
-#!perl
+#!perl
use Test::More tests => 2;
ok(1, 'first test in special_ext');
ok(1, 'second test in special_ext');
@@ -37,7 +37,7 @@
$::x = 0;
my $mb = Module::Build->subclass(
code => q#
- sub ACTION_testspecial {
+ sub ACTION_testspecial {
$::x++;
shift->generic_test(type => 'special');
}
Modified: Module-Build/trunk/t/test_types.t
==============================================================================
--- Module-Build/trunk/t/test_types.t (original)
+++ Module-Build/trunk/t/test_types.t Thu Nov 19 05:19:20 2009
@@ -11,20 +11,20 @@
my $dist = DistGen->new()->chdir_in;
$dist->add_file('t/special_ext.st', <<'---');
-#!perl
+#!perl
use Test::More tests => 2;
ok(1, 'first test in special_ext');
ok(1, 'second test in special_ext');
---
$dist->add_file('t/another_ext.at', <<'---');
-#!perl
+#!perl
use Test::More tests => 2;
ok(1, 'first test in another_ext');
ok(1, 'second test in another_ext');
---
$dist->add_file('t/foo.txt', <<'---');
-#!perl
+#!perl
use Test::More tests => 1;
ok 0, "don't run this non-test file";
die "don't run this non-test file";
@@ -35,11 +35,11 @@
my $mb = Module::Build->subclass(
code => q#
- sub ACTION_testspecial {
+ sub ACTION_testspecial {
shift->generic_test(type => 'special');
}
- sub ACTION_testanother {
+ sub ACTION_testanother {
shift->generic_test(type => 'another');
}
#
@@ -99,7 +99,7 @@
$dist->revert;
$dist->add_file('t/foo/special.st', <<'---');
-#!perl
+#!perl
use Test::More tests => 2;
ok(1, 'first test in special_ext');
ok(1, 'second test in special_ext');
@@ -113,11 +113,11 @@
my $mb = Module::Build->subclass(
code => q#
- sub ACTION_testspecial {
+ sub ACTION_testspecial {
shift->generic_test(type => 'special');
}
- sub ACTION_testanother {
+ sub ACTION_testanother {
shift->generic_test(type => 'another');
}
#
Modified: Module-Build/trunk/t/tilde.t
==============================================================================
--- Module-Build/trunk/t/tilde.t (original)
+++ Module-Build/trunk/t/tilde.t Thu Nov 19 05:19:20 2009
@@ -55,7 +55,7 @@
is( run_sample( $p => '~/foo' )->$p(), "$home/foo" );
is( run_sample( $p => '~/ foo')->$p(), "$home/ foo" );
-
+
is( run_sample( $p => '~/fo o')->$p(), "$home/fo o" );
is( run_sample( $p => 'foo~' )->$p(), 'foo~' );
@@ -97,7 +97,7 @@
my @info = eval { getpwuid $> };
skip "No home directory for tilde-expansion tests", 1 if $@;
my ($me, $home) = @info[0,7];
-
+
my $expected = "$home/foo";
if ($^O eq 'VMS') {
