Change 31401 by [EMAIL PROTECTED] on 2007/06/17 12:51:30
Subject: [PATCH] CPANPLUS 0.80
From: "Jos I. Boumans" <[EMAIL PROTECTED]>
Date: Sun, 17 Jun 2007 14:39:29 +0200
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/MANIFEST#1585 edit
... //depot/perl/lib/CPANPLUS.pm#6 edit
... //depot/perl/lib/CPANPLUS/Internals.pm#6 edit
... //depot/perl/lib/CPANPLUS/Shell/Default.pm#6 edit
... //depot/perl/lib/CPANPLUS/t/01_CPANPLUS-Configure.t#2 edit
... //depot/perl/lib/CPANPLUS/t/02_CPANPLUS-Internals.t#3 edit
... //depot/perl/lib/CPANPLUS/t/04_CPANPLUS-Module.t#2 edit
... //depot/perl/lib/CPANPLUS/t/05_CPANPLUS-Internals-Fetch.t#2 edit
... //depot/perl/lib/CPANPLUS/t/08_CPANPLUS-Backend.t#2 edit
... //depot/perl/lib/CPANPLUS/t/10_CPANPLUS-Error.t#2 edit
... //depot/perl/lib/CPANPLUS/t/19_CPANPLUS-Dist.t#2 edit
... //depot/perl/lib/CPANPLUS/t/20_CPANPLUS-Dist-MM.t#2 edit
... //depot/perl/lib/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t#2 edit
... //depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/01mailrc.txt.gz.packed#6 edit
...
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Bundle-Foo-Bar-0.01.tar.gz.packed#6
edit
...
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Foo-Bar-0.01.tar.gz.packed#6
edit
...
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/perl5.005_03.tar.gz.packed#6
edit
...
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUXS/Foo-Bar-0.01.tar.gz.packed#6
edit
...
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBNOXS/Foo-Bar-0.01.tar.gz.packed#6
edit
...
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBXS/Foo-Bar-0.01.tar.gz.packed#6
edit
...
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/modules/02packages.details.txt.gz.packed#6
edit
... //depot/perl/lib/CPANPLUS/t/dummy-CPAN/modules/03modlist.data.gz.packed#6
edit
... //depot/perl/lib/CPANPLUS/t/inc/conf.pl#7 edit
Differences ...
==== //depot/perl/MANIFEST#1585 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST#1584~31397~ 2007-06-17 01:06:08.000000000 -0700
+++ perl/MANIFEST 2007-06-17 05:51:30.000000000 -0700
@@ -25,16 +25,16 @@
configure.gnu Crude emulation of GNU configure
cop.h Control operator header
Copying The GNU General Public License
+Cross/build-arm-n770-sh Cross-compilation
+Cross/cflags-cross-arm Cross-compilation
Cross/config Cross-compilation
Cross/config.sh-arm-linux Cross-compilation
Cross/config.sh-arm-linux-n770 Cross-compilation
-Cross/build-arm-n770-sh Cross-compilation
Cross/generate_config_sh Cross-compilation
Cross/installperl.patch Cross-compilation
Cross/Makefile Cross-compilation
-Cross/Makefile.SH.patch Cross-compilation
Cross/Makefile-cross-SH Cross-compilation
-Cross/cflags-cross-arm Cross-compilation
+Cross/Makefile.SH.patch Cross-compilation
Cross/README Cross-compilation
Cross/README.new Cross-compilation
Cross/TODO Cross-compilation
==== //depot/perl/lib/CPANPLUS.pm#6 (text) ====
Index: perl/lib/CPANPLUS.pm
--- perl/lib/CPANPLUS.pm#5~31299~ 2007-05-29 00:57:33.000000000 -0700
+++ perl/lib/CPANPLUS.pm 2007-06-17 05:51:30.000000000 -0700
@@ -13,7 +13,7 @@
use vars qw( @EXPORT @ISA $VERSION );
@EXPORT = qw( shell fetch get install );
@ISA = qw( Exporter );
- $VERSION = "0.79_04"; #have to hardcode or cpan.org gets unhappy
+ $VERSION = "0.80"; #have to hardcode or cpan.org gets unhappy
}
### purely for backward compatibility, so we can call it from the commandline:
==== //depot/perl/lib/CPANPLUS/Internals.pm#6 (text) ====
Index: perl/lib/CPANPLUS/Internals.pm
--- perl/lib/CPANPLUS/Internals.pm#5~31299~ 2007-05-29 00:57:33.000000000
-0700
+++ perl/lib/CPANPLUS/Internals.pm 2007-06-17 05:51:30.000000000 -0700
@@ -40,7 +40,7 @@
CPANPLUS::Internals::Report
];
-$VERSION = "0.79_04";
+$VERSION = "0.80";
=pod
==== //depot/perl/lib/CPANPLUS/Shell/Default.pm#6 (text) ====
Index: perl/lib/CPANPLUS/Shell/Default.pm
--- perl/lib/CPANPLUS/Shell/Default.pm#5~31299~ 2007-05-29 00:57:33.000000000
-0700
+++ perl/lib/CPANPLUS/Shell/Default.pm 2007-06-17 05:51:30.000000000 -0700
@@ -26,7 +26,7 @@
BEGIN {
use vars qw[ $VERSION @ISA ];
@ISA = qw[ CPANPLUS::Shell::_Base::ReadLine ];
- $VERSION = "0.79_04";
+ $VERSION = "0.80";
}
load CPANPLUS::Shell;
==== //depot/perl/lib/CPANPLUS/t/01_CPANPLUS-Configure.t#2 (text) ====
Index: perl/lib/CPANPLUS/t/01_CPANPLUS-Configure.t
--- perl/lib/CPANPLUS/t/01_CPANPLUS-Configure.t#1~30883~ 2007-04-10
00:42:33.000000000 -0700
+++ perl/lib/CPANPLUS/t/01_CPANPLUS-Configure.t 2007-06-17 05:51:30.000000000
-0700
@@ -9,8 +9,6 @@
use strict;
use CPANPLUS::Internals::Constants;
-### purposely avert messages and errors to a file? ###
-my $Trap_Output = @ARGV ? 0 : 1;
my $Config_pm = 'CPANPLUS/Config.pm';
### DO NOT FLUSH TILL THE END!!! we depend on all warnings being logged..
@@ -106,9 +104,7 @@
}
-{ local $CPANPLUS::Error::ERROR_FH = output_handle() if $Trap_Output;
-
- my $env = ENV_CPANPLUS_CONFIG;
+{ my $env = ENV_CPANPLUS_CONFIG;
local $ENV{$env} = $$;
my $ok = $c->init;
my $stack = CPANPLUS::Error->stack_as_string;
@@ -119,9 +115,7 @@
}
-{ local $CPANPLUS::Error::ERROR_FH = output_handle() if $Trap_Output;
-
- CPANPLUS::Error->flush;
+{ CPANPLUS::Error->flush;
{ ### try a bogus method call
my $x = $c->flubber('foo');
==== //depot/perl/lib/CPANPLUS/t/02_CPANPLUS-Internals.t#3 (text) ====
Index: perl/lib/CPANPLUS/t/02_CPANPLUS-Internals.t
--- perl/lib/CPANPLUS/t/02_CPANPLUS-Internals.t#2~31292~ 2007-05-28
06:17:54.000000000 -0700
+++ perl/lib/CPANPLUS/t/02_CPANPLUS-Internals.t 2007-06-17 05:51:30.000000000
-0700
@@ -86,9 +86,7 @@
for my $callback ( keys %$callback_map ) {
- { local $CPANPLUS::Error::ERROR_FH = output_handle() unless @ARGV;
-
- my $rv = $callback_map->{$callback};
+ { my $rv = $callback_map->{$callback};
is( $rv, $cb->_callbacks->$callback->( $0, $$ ),
"Default callback '$callback' called" );
==== //depot/perl/lib/CPANPLUS/t/04_CPANPLUS-Module.t#2 (text) ====
Index: perl/lib/CPANPLUS/t/04_CPANPLUS-Module.t
--- perl/lib/CPANPLUS/t/04_CPANPLUS-Module.t#1~30883~ 2007-04-10
00:42:33.000000000 -0700
+++ perl/lib/CPANPLUS/t/04_CPANPLUS-Module.t 2007-06-17 05:51:30.000000000
-0700
@@ -16,9 +16,6 @@
use Data::Dumper;
use File::Path ();
-### silence errors, unless you tell us not to ###
-local $CPANPLUS::Error::ERROR_FH = output_handle() unless @ARGV;
-
my $Conf = gimme_conf();
my $CB = CPANPLUS::Backend->new( $Conf );
==== //depot/perl/lib/CPANPLUS/t/05_CPANPLUS-Internals-Fetch.t#2 (text) ====
Index: perl/lib/CPANPLUS/t/05_CPANPLUS-Internals-Fetch.t
--- perl/lib/CPANPLUS/t/05_CPANPLUS-Internals-Fetch.t#1~30883~ 2007-04-10
00:42:33.000000000 -0700
+++ perl/lib/CPANPLUS/t/05_CPANPLUS-Internals-Fetch.t 2007-06-17
05:51:30.000000000 -0700
@@ -17,10 +17,6 @@
my $conf = gimme_conf();
-### Redirect errors to file ###
-local $CPANPLUS::Error::ERROR_FH = output_handle() unless @ARGV;
-local $CPANPLUS::Error::MSG_FH = output_handle() unless @ARGV;
-
my $cb = CPANPLUS::Backend->new( $conf );
isa_ok($cb, "CPANPLUS::Internals" );
==== //depot/perl/lib/CPANPLUS/t/08_CPANPLUS-Backend.t#2 (text) ====
Index: perl/lib/CPANPLUS/t/08_CPANPLUS-Backend.t
--- perl/lib/CPANPLUS/t/08_CPANPLUS-Backend.t#1~30883~ 2007-04-10
00:42:33.000000000 -0700
+++ perl/lib/CPANPLUS/t/08_CPANPLUS-Backend.t 2007-06-17 05:51:30.000000000
-0700
@@ -14,9 +14,6 @@
my $conf = gimme_conf();
-### purposely avert messages and errors to a file? ###
-my $Trap_Output = @ARGV ? 0 : 1;
-
my $Class = 'CPANPLUS::Backend';
### D::C has troubles with the 'use_ok' -- it finds the wrong paths.
### for now, do a 'use' instead
@@ -133,10 +130,7 @@
### test for things that look like real modules, but aren't ###
- { local $CPANPLUS::Error::MSG_FH = output_handle() if $Trap_Output;
- local $CPANPLUS::Error::ERROR_FH = output_handle() if $Trap_Output;
-
- my @map = (
+ { my @map = (
[ $Name . $$ => [
[qr/does not contain an author/,"Missing author part
detected"],
[qr/Cannot find .+? in the module tree/,"Unable to find
module"]
==== //depot/perl/lib/CPANPLUS/t/10_CPANPLUS-Error.t#2 (text) ====
Index: perl/lib/CPANPLUS/t/10_CPANPLUS-Error.t
--- perl/lib/CPANPLUS/t/10_CPANPLUS-Error.t#1~30883~ 2007-04-10
00:42:33.000000000 -0700
+++ perl/lib/CPANPLUS/t/10_CPANPLUS-Error.t 2007-06-17 05:51:30.000000000
-0700
@@ -34,8 +34,9 @@
### global variables test ###
{ my $file = output_file();
- unlink $file; # just in case
+ ### this *has* to be set, as we're testing the contents of the file
+ ### to see if it matches what's stored in the buffer.
local $CPANPLUS::Error::MSG_FH = output_handle();
local $CPANPLUS::Error::ERROR_FH = output_handle();
==== //depot/perl/lib/CPANPLUS/t/19_CPANPLUS-Dist.t#2 (text) ====
Index: perl/lib/CPANPLUS/t/19_CPANPLUS-Dist.t
--- perl/lib/CPANPLUS/t/19_CPANPLUS-Dist.t#1~30883~ 2007-04-10
00:42:33.000000000 -0700
+++ perl/lib/CPANPLUS/t/19_CPANPLUS-Dist.t 2007-06-17 05:51:30.000000000
-0700
@@ -26,9 +26,9 @@
_prepare_args _install_args _create_args]);
return $Init };
sub format_available { return $Available }
- sub prepare { return shift->status->prepared($Prepare) }
- sub create { return shift->status->created($Create) }
- sub install { return shift->status->installed($Install) }
+ sub prepare { return shift->status->prepared( $Prepare ) }
+ sub create { return shift->status->created( $Create ) }
+ sub install { return shift->status->installed( $Install ) }
}
use strict;
@@ -47,10 +47,6 @@
my $conf = gimme_conf();
my $cb = CPANPLUS::Backend->new( $conf );
-### Redirect errors to file ###
-local $CPANPLUS::Error::ERROR_FH = output_handle() unless @ARGV;
-local $CPANPLUS::Error::MSG_FH = output_handle() unless @ARGV;
-
### obsolete
#my $Format = '_test';
my $Module = 'CPANPLUS::Dist::_Test';
==== //depot/perl/lib/CPANPLUS/t/20_CPANPLUS-Dist-MM.t#2 (text) ====
Index: perl/lib/CPANPLUS/t/20_CPANPLUS-Dist-MM.t
--- perl/lib/CPANPLUS/t/20_CPANPLUS-Dist-MM.t#1~30883~ 2007-04-10
00:42:33.000000000 -0700
+++ perl/lib/CPANPLUS/t/20_CPANPLUS-Dist-MM.t 2007-06-17 05:51:30.000000000
-0700
@@ -40,8 +40,6 @@
$conf->set_conf( cpantest => 0 );
### Redirect errors to file ###
-local $CPANPLUS::Error::ERROR_FH = output_handle() unless $Verbose;
-local $CPANPLUS::Error::MSG_FH = output_handle() unless $Verbose;
*STDERR = output_handle() unless $Verbose;
### dont uncomment this, it screws up where STDOUT goes and makes
==== //depot/perl/lib/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t#2 (text) ====
Index: perl/lib/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t
--- perl/lib/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t#1~30883~ 2007-04-10
00:42:33.000000000 -0700
+++ perl/lib/CPANPLUS/t/21_CPANPLUS-Dist-No-Build.t 2007-06-17
05:51:30.000000000 -0700
@@ -34,10 +34,7 @@
}
### extract it, silence warnings/messages
-{ local $CPANPLUS::Error::MSG_FH = output_handle();
- local $CPANPLUS::Error::ERROR_FH = output_handle();
-
- my $where = $Mod->extract;
+{ my $where = $Mod->extract;
ok( -e $where, " Tarball extracted to '$where'" );
}
==== //depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/01mailrc.txt.gz.packed#6
(text) ====
Index: perl/lib/CPANPLUS/t/dummy-CPAN/authors/01mailrc.txt.gz.packed
--- perl/lib/CPANPLUS/t/dummy-CPAN/authors/01mailrc.txt.gz.packed#5~31299~
2007-05-29 00:57:33.000000000 -0700
+++ perl/lib/CPANPLUS/t/dummy-CPAN/authors/01mailrc.txt.gz.packed
2007-06-17 05:51:30.000000000 -0700
@@ -10,7 +10,7 @@
uupacktool.pl -p lib/CPANPLUS/t/dummy-CPAN/authors/01mailrc.txt.gz
lib/CPANPLUS/t/dummy-CPAN/authors/01mailrc.txt.gz.packed
-Created at Tue May 29 08:55:16 2007
+Created at Sun Jun 17 14:15:09 2007
#########################################################################
__UU__
M'XL("%_EO$4``S`Q;6%I;')C+G1X=`!+S,E,+%9P#8T([EMAIL PROTECTED])=>*DM"2S)QB
====
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Bundle-Foo-Bar-0.01.tar.gz.packed#6
(text) ====
Index:
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Bundle-Foo-Bar-0.01.tar.gz.packed
---
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Bundle-Foo-Bar-0.01.tar.gz.packed#5~31299~
2007-05-29 00:57:33.000000000 -0700
+++
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Bundle-Foo-Bar-0.01.tar.gz.packed
2007-06-17 05:51:30.000000000 -0700
@@ -10,7 +10,7 @@
uupacktool.pl -p
lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Bundle-Foo-Bar-0.01.tar.gz
lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Bundle-Foo-Bar-0.01.tar.gz.packed
-Created at Tue May 29 08:55:16 2007
+Created at Sun Jun 17 14:15:09 2007
#########################################################################
__UU__
M'XL("!1%OT4"`T)U;F1L92U&;V\M0F%R+3`N,#$N=&%R`.V7:V_:,!2&^8I_
====
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Foo-Bar-0.01.tar.gz.packed#6
(text) ====
Index:
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Foo-Bar-0.01.tar.gz.packed
---
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Foo-Bar-0.01.tar.gz.packed#5~31299~
2007-05-29 00:57:33.000000000 -0700
+++
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Foo-Bar-0.01.tar.gz.packed
2007-06-17 05:51:30.000000000 -0700
@@ -10,7 +10,7 @@
uupacktool.pl -p
lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Foo-Bar-0.01.tar.gz
lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/Foo-Bar-0.01.tar.gz.packed
-Created at Tue May 29 08:55:16 2007
+Created at Sun Jun 17 14:15:09 2007
#########################################################################
__UU__
M'XL("/8X34("`T9O;RU"87(M,"XP,2YT87(`[9KQ;]I&%,?Y^?Z*1YE$(A5C
====
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/perl5.005_03.tar.gz.packed#6
(text) ====
Index:
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/perl5.005_03.tar.gz.packed
---
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/perl5.005_03.tar.gz.packed#5~31299~
2007-05-29 00:57:33.000000000 -0700
+++
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/perl5.005_03.tar.gz.packed
2007-06-17 05:51:30.000000000 -0700
@@ -10,7 +10,7 @@
uupacktool.pl -p
lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/perl5.005_03.tar.gz
lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUNOXS/perl5.005_03.tar.gz.packed
-Created at Tue May 29 08:55:17 2007
+Created at Sun Jun 17 14:15:09 2007
#########################################################################
__UU__
M'XL(`'3DO44``^W/,0J`,`Q`T1RE)Y"T-O4XXN"DB%2]OR(*NNC4[;_E#\F0
====
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUXS/Foo-Bar-0.01.tar.gz.packed#6
(text) ====
Index:
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUXS/Foo-Bar-0.01.tar.gz.packed
---
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUXS/Foo-Bar-0.01.tar.gz.packed#5~31299~
2007-05-29 00:57:33.000000000 -0700
+++
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUXS/Foo-Bar-0.01.tar.gz.packed
2007-06-17 05:51:30.000000000 -0700
@@ -10,7 +10,7 @@
uupacktool.pl -p
lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUXS/Foo-Bar-0.01.tar.gz
lib/CPANPLUS/t/dummy-CPAN/authors/id/E/EU/EUXS/Foo-Bar-0.01.tar.gz.packed
-Created at Tue May 29 08:55:17 2007
+Created at Sun Jun 17 14:15:09 2007
#########################################################################
__UU__
M'XL("`DY34("`T9O;RU"87(M,"XP,2YT87(`[5IK3]M(%,U7YE=<H%5``A.;
====
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBNOXS/Foo-Bar-0.01.tar.gz.packed#6
(text) ====
Index:
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBNOXS/Foo-Bar-0.01.tar.gz.packed
---
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBNOXS/Foo-Bar-0.01.tar.gz.packed#5~31299~
2007-05-29 00:57:33.000000000 -0700
+++
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBNOXS/Foo-Bar-0.01.tar.gz.packed
2007-06-17 05:51:30.000000000 -0700
@@ -10,7 +10,7 @@
uupacktool.pl -p
lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBNOXS/Foo-Bar-0.01.tar.gz
lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBNOXS/Foo-Bar-0.01.tar.gz.packed
-Created at Tue May 29 08:55:17 2007
+Created at Sun Jun 17 14:15:09 2007
#########################################################################
__UU__
M'XL("-<X34(``T9O;RU"87(M,"XP,2YT87(`[9E;;]HP%,=Y]J<[EMAIL PROTECTED]
====
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBXS/Foo-Bar-0.01.tar.gz.packed#6
(text) ====
Index:
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBXS/Foo-Bar-0.01.tar.gz.packed
---
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBXS/Foo-Bar-0.01.tar.gz.packed#5~31299~
2007-05-29 00:57:33.000000000 -0700
+++
perl/lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBXS/Foo-Bar-0.01.tar.gz.packed
2007-06-17 05:51:30.000000000 -0700
@@ -10,7 +10,7 @@
uupacktool.pl -p
lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBXS/Foo-Bar-0.01.tar.gz
lib/CPANPLUS/t/dummy-CPAN/authors/id/M/MB/MBXS/Foo-Bar-0.01.tar.gz.packed
-Created at Tue May 29 08:55:17 2007
+Created at Sun Jun 17 14:15:10 2007
#########################################################################
__UU__
M'XL("-\X34(``T9O;RU"87(M,"XP,2YT87(`[5K_3QI)%/=7YZ]XU39H(BN[
====
//depot/perl/lib/CPANPLUS/t/dummy-CPAN/modules/02packages.details.txt.gz.packed#6
(text) ====
Index: perl/lib/CPANPLUS/t/dummy-CPAN/modules/02packages.details.txt.gz.packed
---
perl/lib/CPANPLUS/t/dummy-CPAN/modules/02packages.details.txt.gz.packed#5~31299~
2007-05-29 00:57:33.000000000 -0700
+++ perl/lib/CPANPLUS/t/dummy-CPAN/modules/02packages.details.txt.gz.packed
2007-06-17 05:51:30.000000000 -0700
@@ -10,7 +10,7 @@
uupacktool.pl -p
lib/CPANPLUS/t/dummy-CPAN/modules/02packages.details.txt.gz
lib/CPANPLUS/t/dummy-CPAN/modules/02packages.details.txt.gz.packed
-Created at Tue May 29 08:55:17 2007
+Created at Sun Jun 17 14:15:10 2007
#########################################################################
__UU__
M'XL("-%#OT4``S`R<&%C:V%G97,N9&5T86EL<RYT>'0`E=-1:[EMAIL PROTECTED]
==== //depot/perl/lib/CPANPLUS/t/dummy-CPAN/modules/03modlist.data.gz.packed#6
(text) ====
Index: perl/lib/CPANPLUS/t/dummy-CPAN/modules/03modlist.data.gz.packed
--- perl/lib/CPANPLUS/t/dummy-CPAN/modules/03modlist.data.gz.packed#5~31299~
2007-05-29 00:57:33.000000000 -0700
+++ perl/lib/CPANPLUS/t/dummy-CPAN/modules/03modlist.data.gz.packed
2007-06-17 05:51:30.000000000 -0700
@@ -10,7 +10,7 @@
uupacktool.pl -p lib/CPANPLUS/t/dummy-CPAN/modules/03modlist.data.gz
lib/CPANPLUS/t/dummy-CPAN/modules/03modlist.data.gz.packed
-Created at Tue May 29 08:55:17 2007
+Created at Sun Jun 17 14:15:10 2007
#########################################################################
__UU__
M'XL("#'FO$4``S`S;6]D;&ES="YD871A`%U3_6O;,!#].?HKCBXC"20A=<@&
==== //depot/perl/lib/CPANPLUS/t/inc/conf.pl#7 (text) ====
Index: perl/lib/CPANPLUS/t/inc/conf.pl
--- perl/lib/CPANPLUS/t/inc/conf.pl#6~31292~ 2007-05-28 06:17:54.000000000
-0700
+++ perl/lib/CPANPLUS/t/inc/conf.pl 2007-06-17 05:51:30.000000000 -0700
@@ -51,6 +51,7 @@
use strict;
use CPANPLUS::Configure;
+use CPANPLUS::Error ();
use File::Path qw[rmtree];
use FileHandle;
@@ -150,6 +151,24 @@
}
sub output_file { return $file }
+
+
+ my $env = 'PERL5_CPANPLUS_TEST_VERBOSE';
+ ### redirect output from msg() and error() output to file
+ unless( $ENV{$env} ) {
+
+ print "# To run tests in verbose mode, set ".
+ "\$ENV{PERL5_CPANPLUS_TEST_VERBOSE} = 1\n" unless
$ENV{PERL_CORE};
+
+ unlink $file; # just in case
+
+ $CPANPLUS::Error::ERROR_FH =
+ $CPANPLUS::Error::ERROR_FH = output_handle();
+
+ $CPANPLUS::Error::MSG_FH =
+ $CPANPLUS::Error::MSG_FH = output_handle();
+
+ }
}
@@ -197,7 +216,7 @@
### regular file
} else {
- print "Deleting file '$path'\n" if $verbose;
+ print "# Deleting file '$path'\n" if $verbose;
1 while unlink $path;
}
}
End of Patch.
