use test data for Perls probe
Robert 'phaylon' Sedlacek [Wed, 11 Jul 2012 17:08:31 +0000 (17:08 +0000)]
t/perls.t

index f04348b..2df77f9 100644 (file)
--- a/t/perls.t
+++ b/t/perls.t
@@ -6,13 +6,13 @@ use System::Introspector::Probe::Perls;
 
 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;