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
