This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
skip_all_without_dynamic_extension() should accepted names containing ::s
[perl5.git] / t / test.pl
index 21bf1d2..d83f69b 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -129,6 +129,7 @@ sub skip_all_without_dynamic_extension {
        warn "test.pl had problems loading Config: $@";
        return;
     }
+    $extension =~ s!::!/!g;
     return if ($Config::Config{extensions} =~ /\b$extension\b/);
     skip_all("$extension was not built");
 }