Author: BINGOS
Date: Tue Dec  4 16:18:30 2012
New Revision: 15495

Modified:
   CPANPLUS-Dist-Build/trunk/Changes
   CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build.pm
   CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build/Constants.pm

Log:
Revert change to wrapper command-line

Modified: CPANPLUS-Dist-Build/trunk/Changes
==============================================================================
--- CPANPLUS-Dist-Build/trunk/Changes   (original)
+++ CPANPLUS-Dist-Build/trunk/Changes   Tue Dec  4 16:18:30 2012
@@ -1,5 +1,8 @@
 Revision history for Perl extension CPANPLUS::Dist::Build.
 
+0.68 Wed Dec  5 00:17:04 GMT 2012
+  - Revert change to wrapper command-line
+
 0.66 Tue Dec  4 23:05:53 GMT 2012
   - Resolve an issue where Build.PL doesn't generate a
     Build script

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        Tue Dec  4 
16:18:30 2012
@@ -30,7 +30,7 @@
 
 local $Params::Check::VERBOSE = 1;
 
-$VERSION = '0.66';
+$VERSION = '0.68';
 
 =pod
 

Modified: CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build/Constants.pm
==============================================================================
--- CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build/Constants.pm      
(original)
+++ CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build/Constants.pm      Tue Dec 
 4 16:18:30 2012
@@ -9,7 +9,7 @@
     require Exporter;
     use vars    qw[$VERSION @ISA @EXPORT];
 
-    $VERSION    = '0.66';
+    $VERSION    = '0.68';
     @ISA        = qw[Exporter];
     @EXPORT     = qw[ BUILD_DIR BUILD CPDB_PERL_WRAPPER];
 }
@@ -31,7 +31,7 @@
                             };
 
 
-use constant CPDB_PERL_WRAPPER   => 'use strict; BEGIN { my $old = select 
STDERR; $|++; select $old; $|++; $0 = shift(@ARGV); my $rv = do($0); die $@ if 
$@; die "$!" unless defined $rv; }';
+use constant CPDB_PERL_WRAPPER   => 'use strict; BEGIN { my $old = select 
STDERR; $|++; select $old; $|++; $0 = shift(@ARGV); my $rv = do($0); die $@ if 
$@; }';
 
 1;
 

Reply via email to