lib/Module/Build/t/bundled/Tie/CPHash.pm Module::Build.pm
lib/Module/Build/t/compat/exit.t Module::Build
lib/Module/Build/t/compat.t Module::Build
+lib/Module/Build/t/debug.t Module::Build tests
lib/Module/Build/t/destinations.t Module::Build
lib/Module/Build/t/extend.t Module::Build
lib/Module/Build/t/ext.t Module::Build
'Module::Build' =>
{
'MAINTAINER' => 'kwilliams',
- 'DISTRIBUTION' => 'DAGOLDEN/Module-Build-0.34.tar.gz',
+ 'DISTRIBUTION' => 'DAGOLDEN/Module-Build-0.34_02.tar.gz',
'FILES' => q[lib/Module/Build lib/Module/Build.pm],
'EXCLUDED' => [ qw{ t/par.t t/signature.t scripts/bundle.pl}, ],
'CPAN' => 1,
use vars qw($VERSION @ISA);
@ISA = qw(Module::Build::Base);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
# Okay, this is the brute-force method of finding out what kind of
when building the distribution (i.e. when the C<Build.PL> script was
first run). Use with caution.
+=item debug
+
+Prints Module::Build debugging information to STDOUT, such as a trace of
+executed build actions.
+
=back
=item create_readme()
+=item debug()
+
=item debugger()
=item destdir()
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
BEGIN { require 5.00503 }
my $self = shift;
$self->log_info(@_) if(ref($self) and $self->verbose);
}
+sub log_debug {
+ my $self = shift;
+ print @_ if ref $self && $self->debug;
+}
+
sub log_warn {
# Try to make our call stack invisible
shift;
sign
test_files
verbose
+ debug
xs_files
);
local $self->{action} = $action;
my $method = $self->can_action( $action );
die "No action '$action' defined, try running the 'help' action.\n" unless $method;
- return $self->$method();
+ $self->log_debug("Starting ACTION_$action\n");
+ my $rc = $self->$method();
+ $self->log_debug("Finished ACTION_$action\n");
+ return $rc;
}
sub can_action {
uninst
use_rcfile
verbose
+ debug
sign
use_tap_harness
);
Revision history for Perl extension Module::Build.
+0.34_02 - Sun Jul 26 22:50:40 EDT 2009
+
+ Bug-fixes:
+ - Bundled Module::Build::Version updated to bring into sync with CPAN
+ version.pm 0.77
+
+0.34_01 - Sat Jul 18 16:32:09 EDT 2009
+
+ Enhancements:
+ - Added --debug flag to trace Build action execution (RT#47933)
+ [David Golden]
+
+ Bug-fixes:
+ - Bundled Module::Build::Version version code updated to fix unsafe use
+ of $@ (RT#47980) [John Peacock]
+
0.34 - Tue Jul 7 16:56:47 EDT 2009
No changes from 0.33_06
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
use File::Basename ();
use File::Spec;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Config;
package Module::Build::Cookbook;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
=head1 NAME
package Module::Build::Dumper;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
# 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.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use File::Spec;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Data::Dumper;
use IO::File;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$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.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Module::Build::Base;
use vars qw(@ISA);
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Module::Build::Base;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Config;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use Module::Build::Platform::Unix;
use strict;
use vars qw($VERSION);
-$VERSION = '0.34';
+$VERSION = '0.34_02';
$VERSION = eval $VERSION;
use vars qw(@ISA);
my $class = ref($obj) || $obj;
no strict 'refs';
- eval "require $class" unless %{"$class\::"}; # already existing
- return undef if $@ =~ /Can't locate/ and not defined $req;
-
- if ( not %{"$class\::"} and $] >= 5.008) { # file but no package
+ if ( exists $INC{"$class.pm"} and not %{"$class\::"} and $] >= 5.008) {
+ # file but no package
require Carp;
Carp::croak( "$class defines neither package nor VERSION"
."--version check failed");
}
-
+
my $version = eval "\$$class\::VERSION";
if ( defined $version ) {
local $^W if $] <= 5.008;
--- /dev/null
+#!/usr/bin/perl -w
+
+use strict;
+use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
+use MBTest tests => 3;
+
+require_ok('Module::Build');
+ensure_blib('Module::Build');
+
+my $tmp = MBTest->tmpdir;
+
+use DistGen;
+my $dist = DistGen->new( dir => $tmp );
+$dist->regen;
+END{ $dist->remove }
+
+$dist->chdir_in;
+
+#########################
+
+# Test debug output
+{
+ my $output;
+ $output = stdout_of sub {
+ Module::Build->run_perl_script('Build.PL', [], [])
+ };
+ $output = stdout_of sub {
+ Module::Build->run_perl_script('Build', [], ['--debug'])
+ };
+ like($output, '/Starting ACTION_build.*?Starting ACTION_code.*?Finished ACTION_code.*?Finished ACTION_build/ms',
+ "found nested ACTION_* debug statements"
+ );
+}
+
+#########################
+
+# cleanup
projects / p5sagit/p5-mst-13.2.git / commitdiff