[svn:CPANPLUS-Dist-Build] r9528 - in CPANPLUS-Dist-Build: . trunk trunk/lib/CPANPLUS/Dist

[kane]

Author: kane
Date: Wed May  9 02:01:06 2007
New Revision: 9528

Modified:
   CPANPLUS-Dist-Build/   (props changed)
   CPANPLUS-Dist-Build/trunk/Makefile.PL
   CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build.pm

Log:
 [EMAIL PROTECTED]:  josboum | 2007-05-09 11:00:16 +0200
 * add callback routine to allow to continue testing/installing after a failed 
test
 * update Makefile.PL to reflect dependency on cpanplus 0.80
 


Modified: CPANPLUS-Dist-Build/trunk/Makefile.PL
==============================================================================
--- CPANPLUS-Dist-Build/trunk/Makefile.PL       (original)
+++ CPANPLUS-Dist-Build/trunk/Makefile.PL       Wed May  9 02:01:06 2007
@@ -8,7 +8,7 @@
     clean           => { FILES => 't/dummy-cpanplus' },
     PREREQ_PM       => { 
                         'Test::More'                => 0, 
-                        'CPANPLUS'                  => '0.072',
+                        'CPANPLUS'                  => '0.80',
                         'Locale::Maketext::Simple'  => 0,
                         'Params::Check'             => '0.22',
                         'IPC::Cmd'                  => '0.23',

Modified: CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build.pm
==============================================================================
--- CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build.pm        (original)
+++ CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build.pm        Wed May  9 
02:01:06 2007
@@ -535,10 +535,13 @@
                 ### send success on force...
                 $test_fail++;
 
-                unless($force) {
-                    $dist->status->test(0);
-                    $fail++; last RUN;
+                if( !$force and !$cb->_callbacks->proceed_on_test_failure->(
+                                      $self, $@ ) 
+                ) {
+                    $dist->status->test(0);                 
+                    $fail++; last RUN;     
                 }
+                
             } else {
                 $dist->status->test(1);
             }