The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
Changes 04
META.yml 77
Makefile.PL 11
inc/Module/Install/Base.pm 11
inc/Module/Install/Can.pm 11
inc/Module/Install/Fetch.pm 11
inc/Module/Install/Makefile.pm 11
inc/Module/Install/Metadata.pm 44
inc/Module/Install/Win32.pm 11
inc/Module/Install/WriteAll.pm 11
inc/Module/Install.pm 117
lib/Test/Object/Test.pm 11
lib/Test/Object.pm 11
t/99_pod.t 118
14 files changed (This is a version diff) 2259
@@ -1,5 +1,9 @@
 Revision history for Perl extension Test::Object
 
+0.07 Thu  7 Sep 2006
+	# This release contains only build-time changes
+	- Fixed a bad dependency
+
 0.06 Wed  7 Jun 2006
 	# This release contains only build-time changes
 	- Added explicit dependency on Test::Builder 0.62
@@ -1,21 +1,21 @@
 abstract: Thoroughly testing objects via registered handlers
-author: 'Adam Kennedy <cpan@ali.as>'
+author: Adam Kennedy <cpan@ali.as>
 distribution_type: module
-generated_by: Module::Install version 0.62
+generated_by: Module::Install version 0.64
 license: perl
 name: Test-Object
-no_index:
-  directory:
+no_index: 
+  directory: 
     - inc
     - t
-requires:
+requires: 
   Carp: 0
   Exporter: 0
   File::Spec: 0.80
   Scalar::Util: 1.16
-  Test::Builder: 0.62
+  Test::Builder: 0.33
   Test::Builder::Tester: 1.02
   Test::More: 0.42
   overload: 0
   perl: 5.005
-version: 0.06
+version: 0.07
@@ -7,7 +7,7 @@ requires 'Carp'                  => 0;
 requires 'Exporter'              => 0;
 requires 'Scalar::Util'          => '1.16';
 requires 'Test::More'            => '0.42';
-requires 'Test::Builder'         => '0.62';
+requires 'Test::Builder'         => '0.33';
 requires 'Test::Builder::Tester' => '1.02';
 requires 'File::Spec'            => '0.80';
 
@@ -1,7 +1,7 @@
 #line 1
 package Module::Install::Base;
 
-$VERSION = '0.62';
+$VERSION = '0.64';
 
 # Suspend handler for "redefined" warnings
 BEGIN {
@@ -11,7 +11,7 @@ use ExtUtils::MakeMaker ();
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.62';
+	$VERSION = '0.64';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
@@ -6,7 +6,7 @@ use Module::Install::Base;
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.62';
+	$VERSION = '0.64';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
@@ -7,7 +7,7 @@ use ExtUtils::MakeMaker ();
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.62';
+	$VERSION = '0.64';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
@@ -6,7 +6,7 @@ use Module::Install::Base;
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.62';
+	$VERSION = '0.64';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
@@ -123,9 +123,9 @@ sub auto_provides {
 
     require Module::Build;
     my $build = Module::Build->new(
-        dist_name    => $self->{name},
-        dist_version => $self->{version},
-        license      => $self->{license},
+        dist_name    => $self->name,
+        dist_version => $self->version,
+        license      => $self->license,
     );
     $self->provides(%{ $build->find_dist_packages || {} });
 }
@@ -6,7 +6,7 @@ use Module::Install::Base;
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.62';
+	$VERSION = '0.64';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
@@ -6,7 +6,7 @@ use Module::Install::Base;
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.62';
+	$VERSION = '0.64';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
@@ -28,7 +28,7 @@ BEGIN {
     # This is not enforced yet, but will be some time in the next few
     # releases once we can make sure it won't clash with custom
     # Module::Install extensions.
-    $VERSION = '0.62';
+    $VERSION = '0.64';
 }
 
 # Whether or not inc::Module::Install is actually loaded, the
@@ -51,6 +51,22 @@ not:
 END_DIE
 }
 
+# If the script that is loading Module::Install is from the future,
+# then make will detect this and cause it to re-run over and over
+# again. This is bad. Rather than taking action to touch it (which
+# is unreliable on some platforms and requires write permissions)
+# for now we should catch this and refuse to run.
+if ( -f $0 and (stat($0))[9] > time ) {
+	die << "END_DIE";
+Your installer $0 has a modification time in the future.
+
+This is known to create infinite loops in make.
+
+Please correct this, then run $0 again.
+
+END_DIE
+}
+
 use Cwd        ();
 use File::Find ();
 use File::Path ();
@@ -6,7 +6,7 @@ use Scalar::Util ();
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '0.06';
+	$VERSION = '0.07';
 }
 
 
@@ -100,7 +100,7 @@ use Test::Object::Test ();
 
 use vars qw{$VERSION @ISA @EXPORT};
 BEGIN {
-	$VERSION = '0.06';
+	$VERSION = '0.07';
 	@ISA     = 'Exporter';
 	@EXPORT  = 'object_ok';
 }
@@ -1,6 +1,23 @@
+#!/use/bin/perl
+
 use Test::More;
+
+# Skip developer testing except for during automated testing
+unless ( $ENV{AUTOMATED_TESTING} ) {
+	plan skip_all => "Skipping module author tests";
+	exit(0);
+}
+
+# Try to load Test::Pod
 eval "use Test::Pod 1.00";
-plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+if ( $@ ) {
+	plan skip_all => "Test::Pod 1.00 required for testing POD";
+	exit(0);
+}
+
+
+
+
 
 #####################################################################
 # WARNING: INSANE BLACK MAGIC