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 (file)
--- 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