X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flibdirs-perl.t;h=4e7ef2c78aff2075082748235eaeea93f81535ee;hb=ff4d9e13b7a10316ae73a025d173f8c34f0230a3;hp=be60cdb02dc807e2ab76daf511f24750d9b3c0ce;hpb=ff85404797ecd49c582258166349bb8315bc8f69;p=scpubgit%2FSystem-Introspector.git

diff --git a/t/libdirs-perl.t b/t/libdirs-perl.t
index be60cdb..4e7ef2c 100644
--- a/t/libdirs-perl.t
+++ b/t/libdirs-perl.t
@@ -2,18 +2,18 @@ use strictures 1;
 use Test::More;
 use FindBin;
 
-use System::Introspector::LibDirs::Perl;
+use System::Introspector::Probe::LibDirs::Perl;
 
 my $dir = "$FindBin::Bin/data/libdir/perl";
 
 no warnings 'redefine';
-*System::Introspector::LibDirs::Perl::_open_locate_libdirs_pipe = sub {
+*System::Introspector::Probe::LibDirs::Perl::_open_locate_libdirs_pipe = sub {
     my $output = "$dir/lib/perl5\n";
     open my $fh, '<', \$output;
     return $fh;
 };
 
-my $probe = System::Introspector::LibDirs::Perl->new(
+my $probe = System::Introspector::Probe::LibDirs::Perl->new(
     root => $dir,
 );
 my $data = $probe->gather;