use Test::More's skip

diff --git a/t/BSE/Test.pm b/t/BSE/Test.pm
index f05270ae0670d43c26e13a62712cb5f2f73b7665..0461671620fb48991ea56ee982c6af5d0a4bc8a1 100644 (file)
--- a/t/BSE/Test.pm
+++ b/t/BSE/Test.pm
@@ -8,6 +8,7 @@ use Exporter 'import';
                 follow_refresh_ok click_ok config test_actions);
 use lib 'site/cgi-bin/modules';
 use BSE::Cfg;
+use Test::More;
 
 my $conffile = $ENV{BSETEST} || 'install.cfg';
 
@@ -128,7 +129,7 @@ sub _check_fetch {
     my $count = 0;
     $count++ if $match;
     $count++ if $headmatch;
-    $ok or skip("$note: fetch failed", $count) if $count;
+    skip("$note: fetch failed", $count);
     if ($match) {
       unless ($tb->like($content, qr/$match/s, "$note: match")) {
        #print "# wanted /$match/ got:\n";