[Bps-public-commit] r15855 - in SVN-Mirror/trunk: . inc/Module inc/Module/Install lib/SVN
clkao at bestpractical.com
clkao at bestpractical.com
Mon Sep 8 07:42:55 EDT 2008
Author: clkao
Date: Mon Sep 8 07:42:55 2008
New Revision: 15855
Modified:
SVN-Mirror/trunk/ (props changed)
SVN-Mirror/trunk/CHANGES
SVN-Mirror/trunk/META.yml
SVN-Mirror/trunk/inc/Module/AutoInstall.pm
SVN-Mirror/trunk/inc/Module/Install.pm
SVN-Mirror/trunk/inc/Module/Install/AutoInstall.pm
SVN-Mirror/trunk/inc/Module/Install/Base.pm
SVN-Mirror/trunk/inc/Module/Install/Can.pm
SVN-Mirror/trunk/inc/Module/Install/Fetch.pm
SVN-Mirror/trunk/inc/Module/Install/Include.pm
SVN-Mirror/trunk/inc/Module/Install/Makefile.pm
SVN-Mirror/trunk/inc/Module/Install/Metadata.pm
SVN-Mirror/trunk/inc/Module/Install/Scripts.pm
SVN-Mirror/trunk/inc/Module/Install/Win32.pm
SVN-Mirror/trunk/inc/Module/Install/WriteAll.pm
SVN-Mirror/trunk/lib/SVN/Mirror.pm
SVN-Mirror/trunk/lib/SVN/Mirror/Ra.pm
Log:
r400 at mtl: clkao | 2007-03-20 07:05:39 +0800
0.73.
Modified: SVN-Mirror/trunk/CHANGES
==============================================================================
--- SVN-Mirror/trunk/CHANGES (original)
+++ SVN-Mirror/trunk/CHANGES Mon Sep 8 07:42:55 2008
@@ -1,3 +1,10 @@
+[Changes for 0.73 - Mar 19, 2007]
+
+* In get_latest_rev, resolve the right HEAD for use in get_logs.
+ [Rolf Schäuble]
+
+* Fix tests on win32. [David Golden]
+
[Changes for 0.72 - Nov 2, 2006]
* Use a custom transaction to commit the mirror rev, and have the
Modified: SVN-Mirror/trunk/META.yml
==============================================================================
--- SVN-Mirror/trunk/META.yml (original)
+++ SVN-Mirror/trunk/META.yml Mon Sep 8 07:42:55 2008
@@ -16,4 +16,5 @@
SVN::Simple::Edit: 0
Term::ReadKey: 0
URI::Escape: 0
-version: 0.72
+ URI::file: 0
+version: 0.73
Modified: SVN-Mirror/trunk/inc/Module/AutoInstall.pm
==============================================================================
--- SVN-Mirror/trunk/inc/Module/AutoInstall.pm (original)
+++ SVN-Mirror/trunk/inc/Module/AutoInstall.pm Mon Sep 8 07:42:55 2008
@@ -7,7 +7,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.02';
+ $VERSION = '1.03';
}
# special map on pre-defined feature sets
@@ -214,7 +214,7 @@
}
}
- _check_lock(); # check for $UnderCPAN
+ $UnderCPAN = _check_lock(); # check for $UnderCPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
@@ -234,9 +234,20 @@
*{'main::WriteMakefile'} = \&Write if caller(0) eq 'main';
}
-# CPAN.pm is non-reentrant, so check if we're under it and have no CPANPLUS
+# Check to see if we are currently running under CPAN.pm and/or CPANPLUS;
+# if we are, then we simply let it taking care of our dependencies
sub _check_lock {
return unless @Missing;
+
+ if ($ENV{PERL5_CPANPLUS_IS_RUNNING}) {
+ print <<'END_MESSAGE';
+
+*** Since we're running under CPANPLUS, I'll just let it take care
+ of the dependency's installation later.
+END_MESSAGE
+ return 1;
+ }
+
_load_cpan();
# Find the CPAN lock-file
@@ -256,10 +267,11 @@
*** Since we're running under CPAN, I'll just let it take care
of the dependency's installation later.
END_MESSAGE
- $UnderCPAN = 1;
+ return 1;
}
close LOCK;
+ return;
}
sub install {
@@ -280,7 +292,8 @@
}
}
- return @installed unless @modules; # nothing to do
+ return @installed unless @modules; # nothing to do
+ return @installed if _check_lock(); # defer to the CPAN shell
print "*** Installing dependencies...\n";
@@ -300,7 +313,7 @@
@modules = @newmod;
}
- if ( ! $UnderCPAN and _has_cpanplus() ) {
+ if ( _has_cpanplus() ) {
_install_cpanplus( \@modules, \@config );
} else {
_install_cpan( \@modules, \@config );
@@ -466,9 +479,9 @@
delete $INC{$inc};
}
- $obj->force('install') if $args{force};
-
- my $rv = $obj->install || eval {
+ my $rv = $args{force} ? CPAN::Shell->force( install => $pkg )
+ : CPAN::Shell->install($pkg);
+ $rv ||= eval {
$CPAN::META->instance( 'CPAN::Distribution', $obj->cpan_file, )
->{install}
if $CPAN::META;
@@ -752,4 +765,4 @@
__END__
-#line 990
+#line 1003
Modified: SVN-Mirror/trunk/inc/Module/Install.pm
==============================================================================
--- SVN-Mirror/trunk/inc/Module/Install.pm (original)
+++ SVN-Mirror/trunk/inc/Module/Install.pm Mon Sep 8 07:42:55 2008
@@ -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.63';
+ $VERSION = '0.64';
}
# Whether or not inc::Module::Install is actually loaded, the
Modified: SVN-Mirror/trunk/inc/Module/Install/AutoInstall.pm
==============================================================================
--- SVN-Mirror/trunk/inc/Module/Install/AutoInstall.pm (original)
+++ SVN-Mirror/trunk/inc/Module/Install/AutoInstall.pm Mon Sep 8 07:42:55 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: SVN-Mirror/trunk/inc/Module/Install/Base.pm
==============================================================================
--- SVN-Mirror/trunk/inc/Module/Install/Base.pm (original)
+++ SVN-Mirror/trunk/inc/Module/Install/Base.pm Mon Sep 8 07:42:55 2008
@@ -1,7 +1,7 @@
#line 1
package Module::Install::Base;
-$VERSION = '0.63';
+$VERSION = '0.64';
# Suspend handler for "redefined" warnings
BEGIN {
Modified: SVN-Mirror/trunk/inc/Module/Install/Can.pm
==============================================================================
--- SVN-Mirror/trunk/inc/Module/Install/Can.pm (original)
+++ SVN-Mirror/trunk/inc/Module/Install/Can.pm Mon Sep 8 07:42:55 2008
@@ -11,7 +11,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: SVN-Mirror/trunk/inc/Module/Install/Fetch.pm
==============================================================================
--- SVN-Mirror/trunk/inc/Module/Install/Fetch.pm (original)
+++ SVN-Mirror/trunk/inc/Module/Install/Fetch.pm Mon Sep 8 07:42:55 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: SVN-Mirror/trunk/inc/Module/Install/Include.pm
==============================================================================
--- SVN-Mirror/trunk/inc/Module/Install/Include.pm (original)
+++ SVN-Mirror/trunk/inc/Module/Install/Include.pm Mon Sep 8 07:42:55 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: SVN-Mirror/trunk/inc/Module/Install/Makefile.pm
==============================================================================
--- SVN-Mirror/trunk/inc/Module/Install/Makefile.pm (original)
+++ SVN-Mirror/trunk/inc/Module/Install/Makefile.pm Mon Sep 8 07:42:55 2008
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: SVN-Mirror/trunk/inc/Module/Install/Metadata.pm
==============================================================================
--- SVN-Mirror/trunk/inc/Module/Install/Metadata.pm (original)
+++ SVN-Mirror/trunk/inc/Module/Install/Metadata.pm Mon Sep 8 07:42:55 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: SVN-Mirror/trunk/inc/Module/Install/Scripts.pm
==============================================================================
--- SVN-Mirror/trunk/inc/Module/Install/Scripts.pm (original)
+++ SVN-Mirror/trunk/inc/Module/Install/Scripts.pm Mon Sep 8 07:42:55 2008
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: SVN-Mirror/trunk/inc/Module/Install/Win32.pm
==============================================================================
--- SVN-Mirror/trunk/inc/Module/Install/Win32.pm (original)
+++ SVN-Mirror/trunk/inc/Module/Install/Win32.pm Mon Sep 8 07:42:55 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: SVN-Mirror/trunk/inc/Module/Install/WriteAll.pm
==============================================================================
--- SVN-Mirror/trunk/inc/Module/Install/WriteAll.pm (original)
+++ SVN-Mirror/trunk/inc/Module/Install/WriteAll.pm Mon Sep 8 07:42:55 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.63';
+ $VERSION = '0.64';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: SVN-Mirror/trunk/lib/SVN/Mirror.pm
==============================================================================
--- SVN-Mirror/trunk/lib/SVN/Mirror.pm (original)
+++ SVN-Mirror/trunk/lib/SVN/Mirror.pm Mon Sep 8 07:42:55 2008
@@ -1,6 +1,6 @@
#!/usr/bin/perl
package SVN::Mirror;
-our $VERSION = '0.72';
+our $VERSION = '0.73';
use SVN::Core;
use SVN::Repos;
use SVN::Fs;
Modified: SVN-Mirror/trunk/lib/SVN/Mirror/Ra.pm
==============================================================================
--- SVN-Mirror/trunk/lib/SVN/Mirror/Ra.pm (original)
+++ SVN-Mirror/trunk/lib/SVN/Mirror/Ra.pm Mon Sep 8 07:42:55 2008
@@ -1,6 +1,6 @@
package SVN::Mirror::Ra;
@ISA = ('SVN::Mirror');
-$VERSION = '0.72';
+$VERSION = '0.73';
use strict;
use SVN::Core;
use SVN::Repos;
More information about the Bps-public-commit
mailing list