From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Sat, 8 May 2010 11:57:00 +0000 (+0100)
Subject: Backport patch from CPANPLUS-0.9004 to cpanp-run-perl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=16051fb058c57f589e67cbef1f38bd69bf0a9117;p=p5sagit%2Fp5-mst-13.2.git

Backport patch from CPANPLUS-0.9004 to cpanp-run-perl

  This resolves RT #55964 and RT #57106 relating to the failure to
  install distributions that use Module::Install::DSL

  The addition of a BEGIN {} block to cpanp-run-perl resolves the
  issue.
---

diff --git a/cpan/CPANPLUS/bin/cpanp-run-perl b/cpan/CPANPLUS/bin/cpanp-run-perl
index 34e62bd..b6b4dc6 100644
--- a/cpan/CPANPLUS/bin/cpanp-run-perl
+++ b/cpan/CPANPLUS/bin/cpanp-run-perl
@@ -1,10 +1,11 @@
 use strict;
+BEGIN {
 my $old = select STDERR; $|++;  # turn on autoflush
 select $old;             $|++;  # turn on autoflush
 $0 = shift(@ARGV);              # rename the script
 my $rv = do($0);                # execute the file
 die $@ if $@;                   # die on parse/execute error
-
+}
 ### XXX 'do' returns last statement evaluated, which may be
 ### undef as well. So don't die in that case.
 #die $! if not defined $rv;      # die on execute error