The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use FindBin; 

use Module::Load;

local $ENV{CPANPLUS_SOURCE_ENGINE} = 'CPANPLUS::Internals::Source::SQLite';

my $old = select STDERR; $|++;                                  
select $old;             $|++;                                  
my $rv = do("$FindBin::Bin/03_CPANPLUS-Internals-Source.t") or do {
    die $@ if $@;
    die $! if $!;
};