From 5855bb7a4a7f0b0054deee03638a355fbfee7b04 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Sun, 27 Oct 2024 11:27:36 +0100
Subject: [PATCH] skip test for perls without given/when (fix for GH#18)

---
 t/irc-schema.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/irc-schema.t b/t/irc-schema.t
index 443c5db..559a1ee 100644
--- a/t/irc-schema.t
+++ b/t/irc-schema.t
@@ -34,7 +34,7 @@ subtest Channel => sub { # {{{
 
    is( $result_class->table, 'Channels', 'table gets set correctly');
 
-   is( $result_class->test_perl_version, 'station', 'perl version gets set from base class') if $] >= 5.010;
+   is( $result_class->test_perl_version, 'station', 'perl version gets set from base class') if $] >= 5.010 && $] <= 5.041003;
    is( $result_class->test_experimental->(1), 2, 'experimental gets set from base class') if $] >= 5.020;
    is( IRC::Schema->resultset('Channel')->test_experimental->(2), 3, 'experimental gets set from base class of rs') if $] >= 5.020;
 }; # }}}
-- 
2.11.0