X-Git-Url: https://git.exim.org/users/jgh/exim.git/blobdiff_plain/100122504d03e5583b8321f939d4f688ab16886c..87e93574a5da99b5f36751a4219caacc4e81ea3c:/test/lib/Exim/Runtest.pm

diff --git a/test/lib/Exim/Runtest.pm b/test/lib/Exim/Runtest.pm
index e60fce1e6..851c29d3b 100644
--- a/test/lib/Exim/Runtest.pm
+++ b/test/lib/Exim/Runtest.pm
@@ -1,9 +1,16 @@
 package Exim::Runtest;
+use 5.010;
 use strict;
 use warnings;
 use IO::Socket::INET;
 use Carp;
 
+use parent 'Exporter';
+our @EXPORT_OK = qw(mailgroup dynamic_socket);
+our %EXPORT_TAGS = (
+    all => \@EXPORT_OK,
+);
+
 use List::Util qw'shuffle';
 
 =head1 NAME
@@ -23,7 +30,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+$/;