[svn:CPANPLUS-Dist-Build] r14964 - CPANPLUS-Dist-Build/trunk/lib/CPANPLUS/Dist/Build

[email protected] Thu, 27 Oct 2011 13:16:25 -0700 (PDT)

Newsgroups	perl.module.build.checkins
Message-ID	<[email protected]>

Author: BINGOS
Date: Thu Oct 27 13:16:24 2011
New Revision: 14964

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

Log:
Add new constant for the perl wrapper.

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	Thu Oct 27 13:16:24 2011
@@ -11,7 +11,7 @@
 
     $VERSION    = '0.58';
     @ISA        = qw[Exporter];
-    @EXPORT     = qw[ BUILD_DIR BUILD ];
+    @EXPORT     = qw[ BUILD_DIR BUILD CPDB_PERL_WRAPPER];
 }
 
 
@@ -30,6 +30,9 @@
                                      return $file;
                             };
 
+
+use constant CPDB_PERL_WRAPPER   => 'use strict; BEGIN { my $old = select STDERR; $|++; select $old; $|++; $0 = shift(@ARGV); my $rv = do($0); die $@ if $@; }';
+
 1;
 
 =head1 NAME