From b1227303735a346c79fd0734c9efb5d13609ad55 Mon Sep 17 00:00:00 2001
From: "Heiko Schlittermann (HS12-RIPE)" <hs@schlittermann.de>
Date: Thu, 3 Nov 2016 10:15:16 +0100
Subject: Testsuite: Add more tests to Exim::Runtest tests

---
 test/lib/Exim/Runtest.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'test/lib')

diff --git a/test/lib/Exim/Runtest.pm b/test/lib/Exim/Runtest.pm
index e60fce1e6..845388b8b 100644
--- a/test/lib/Exim/Runtest.pm
+++ b/test/lib/Exim/Runtest.pm
@@ -23,7 +23,7 @@ for the F<runtest> script. No functions are exported yet.
 =cut
 
 sub mailgroup {
-    my $group = shift;
+    my $group = shift // croak "Need a default group name.";
 
     croak "Need a group *name*, not a numeric group id."
         if $group =~ /^\d+$/;
-- 
cgit v1.2.3