do {
no warnings 'redefine';
-# *System::Introspector::Probe::Perls::_find_possible_perl_configs = sub {
-# map "$FindBin::Bin/data/perls/$_/lib/Config.pm", '5.10.0', '5.14.2',
-# };
+ *System::Introspector::Probe::Perls::_find_possible_perl_configs = sub {
+ map "$FindBin::Bin/data/perls/$_/lib/Config.pm", '5.10.0', '5.14.2',
+ };
};
my $probe = System::Introspector::Probe::Perls->new(
-# root => "$FindBin::Bin/data/perls",
+ root => "$FindBin::Bin/data/perls",
);
my $result = $probe->gather;