Fix {%hash} ~~ %hash test

[p5sagit/p5-mst-13.2.git] / t / Module_Pluggable / 07instantiate.t

diff --git a/t/Module_Pluggable/07instantiate.t b/t/Module_Pluggable/07instantiate.t
index befc15a..352d4d0 100644 (file)
--- a/t/Module_Pluggable/07instantiate.t
+++ b/t/Module_Pluggable/07instantiate.t
@@ -2,7 +2,7 @@
 
 use strict;
 use FindBin;
-use lib "$FindBin::Bin/lib";
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
 use Test::More tests => 6;
 
 my $foo;
@@ -26,7 +26,7 @@ package MyTest;
 use File::Spec::Functions qw(catdir);
 use strict;
 use FindBin;
-use lib "$FindBin::Bin/lib";
+use lib (($FindBin::Bin."/lib")=~/^(.*)$/);
 use Module::Pluggable (search_path => ["MyTest::Extend::Plugin"], sub_name => 'booga', instantiate => 'new');
 use Module::Pluggable (search_path => ["MyTest::Extend::Plugin"], sub_name => 'wooga', instantiate => 'nosomuchmethod');