[Rt-commit] r5372 - in Locale-Maketext-Lexicon/inc/Module: Install

[audreyt at bestpractical.com]

Author: audreyt
Date: Thu Jun 15 11:06:50 2006
New Revision: 5372

Modified:
   Locale-Maketext-Lexicon/inc/Module/Install.pm
   Locale-Maketext-Lexicon/inc/Module/Install/Base.pm
   Locale-Maketext-Lexicon/inc/Module/Install/Can.pm
   Locale-Maketext-Lexicon/inc/Module/Install/Fetch.pm
   Locale-Maketext-Lexicon/inc/Module/Install/Makefile.pm
   Locale-Maketext-Lexicon/inc/Module/Install/Metadata.pm
   Locale-Maketext-Lexicon/inc/Module/Install/Scripts.pm
   Locale-Maketext-Lexicon/inc/Module/Install/Win32.pm
   Locale-Maketext-Lexicon/inc/Module/Install/WriteAll.pm

Log:
* (upgrade M::I to 0.63)

Modified: Locale-Maketext-Lexicon/inc/Module/Install.pm
==============================================================================
--- Locale-Maketext-Lexicon/inc/Module/Install.pm	(original)
+++ Locale-Maketext-Lexicon/inc/Module/Install.pm	Thu Jun 15 11:06:50 2006
@@ -28,7 +28,7 @@
     # 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.63';
 }
 
 # Whether or not inc::Module::Install is actually loaded, the
@@ -51,6 +51,22 @@
 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 ();

Modified: Locale-Maketext-Lexicon/inc/Module/Install/Base.pm
==============================================================================
--- Locale-Maketext-Lexicon/inc/Module/Install/Base.pm	(original)
+++ Locale-Maketext-Lexicon/inc/Module/Install/Base.pm	Thu Jun 15 11:06:50 2006
@@ -1,7 +1,7 @@
 #line 1
 package Module::Install::Base;
 
-$VERSION = '0.62';
+$VERSION = '0.63';
 
 # Suspend handler for "redefined" warnings
 BEGIN {

Modified: Locale-Maketext-Lexicon/inc/Module/Install/Can.pm
==============================================================================
--- Locale-Maketext-Lexicon/inc/Module/Install/Can.pm	(original)
+++ Locale-Maketext-Lexicon/inc/Module/Install/Can.pm	Thu Jun 15 11:06:50 2006
@@ -11,7 +11,7 @@
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.62';
+	$VERSION = '0.63';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }

Modified: Locale-Maketext-Lexicon/inc/Module/Install/Fetch.pm
==============================================================================
--- Locale-Maketext-Lexicon/inc/Module/Install/Fetch.pm	(original)
+++ Locale-Maketext-Lexicon/inc/Module/Install/Fetch.pm	Thu Jun 15 11:06:50 2006
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.62';
+	$VERSION = '0.63';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }

Modified: Locale-Maketext-Lexicon/inc/Module/Install/Makefile.pm
==============================================================================
--- Locale-Maketext-Lexicon/inc/Module/Install/Makefile.pm	(original)
+++ Locale-Maketext-Lexicon/inc/Module/Install/Makefile.pm	Thu Jun 15 11:06:50 2006
@@ -7,7 +7,7 @@
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.62';
+	$VERSION = '0.63';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }

Modified: Locale-Maketext-Lexicon/inc/Module/Install/Metadata.pm
==============================================================================
--- Locale-Maketext-Lexicon/inc/Module/Install/Metadata.pm	(original)
+++ Locale-Maketext-Lexicon/inc/Module/Install/Metadata.pm	Thu Jun 15 11:06:50 2006
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.62';
+	$VERSION = '0.63';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }
@@ -123,9 +123,9 @@
 
     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 || {} });
 }

Modified: Locale-Maketext-Lexicon/inc/Module/Install/Scripts.pm
==============================================================================
--- Locale-Maketext-Lexicon/inc/Module/Install/Scripts.pm	(original)
+++ Locale-Maketext-Lexicon/inc/Module/Install/Scripts.pm	Thu Jun 15 11:06:50 2006
@@ -7,7 +7,7 @@
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.62';
+	$VERSION = '0.63';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }

Modified: Locale-Maketext-Lexicon/inc/Module/Install/Win32.pm
==============================================================================
--- Locale-Maketext-Lexicon/inc/Module/Install/Win32.pm	(original)
+++ Locale-Maketext-Lexicon/inc/Module/Install/Win32.pm	Thu Jun 15 11:06:50 2006
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.62';
+	$VERSION = '0.63';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }

Modified: Locale-Maketext-Lexicon/inc/Module/Install/WriteAll.pm
==============================================================================
--- Locale-Maketext-Lexicon/inc/Module/Install/WriteAll.pm	(original)
+++ Locale-Maketext-Lexicon/inc/Module/Install/WriteAll.pm	Thu Jun 15 11:06:50 2006
@@ -6,7 +6,7 @@
 
 use vars qw{$VERSION $ISCORE @ISA};
 BEGIN {
-	$VERSION = '0.62';
+	$VERSION = '0.63';
 	$ISCORE  = 1;
 	@ISA     = qw{Module::Install::Base};
 }