Re: 5.10.0 test hangs on non internet access

From: "Jos I. Boumans" <jos@dwim.org>
Message-Id: <22589E6E-1C9D-4C1F-8642-A690904193C7@dwim.org>

p4raw-id: //depot/perl@32233

diff --git a/lib/CPANPLUS/Dist/Build/t/02_CPANPLUS-Dist-Build.t b/lib/CPANPLUS/Dist/Build/t/02_CPANPLUS-Dist-Build.t
index 490420e..de0b460 100644 (file)
--- a/lib/CPANPLUS/Dist/Build/t/02_CPANPLUS-Dist-Build.t
+++ b/lib/CPANPLUS/Dist/Build/t/02_CPANPLUS-Dist-Build.t
@@ -39,11 +39,15 @@ my $Conf    = $CB->configure_object;
 
 
 ### create a fake object, so we don't use the actual module tree
 
 
 ### create a fake object, so we don't use the actual module tree

+### make sure to add dslip data, so CPANPLUS doesn't try to find
+### it in another module in the package, for which it needs the
+### module tree

 my $Mod = CPANPLUS::Module::Fake->new(
                 module  => 'Foo::Bar',
                 path    => 'src',
                 author  => CPANPLUS::Module::Author::Fake->new,
                 package => 'Foo-Bar-0.01.tar.gz',
 my $Mod = CPANPLUS::Module::Fake->new(
                 module  => 'Foo::Bar',
                 path    => 'src',
                 author  => CPANPLUS::Module::Author::Fake->new,
                 package => 'Foo-Bar-0.01.tar.gz',

+                dslip   => 'RdpO?',

             );
 
 $Conf->set_conf( base       => 'dummy-cpanplus' );
             );
 
 $Conf->set_conf( base       => 'dummy-cpanplus' );