Testsuite: Exim::Runtest uses parent Exporter

[users/heiko/exim.git] / test / lib / Exim / Runtest.pm

diff --git a/test/lib/Exim/Runtest.pm b/test/lib/Exim/Runtest.pm
index e60fce1e6326cf889530adb377af1940d0f3cc26..851c29d3bbb6b0e4e7ca266ea369edf142c347b9 100644 (file)
--- a/test/lib/Exim/Runtest.pm
+++ b/test/lib/Exim/Runtest.pm
@@ -1,9 +1,16 @@
 package Exim::Runtest;
 package Exim::Runtest;

+use 5.010;

 use strict;
 use warnings;
 use IO::Socket::INET;
 use Carp;
 
 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
 use List::Util qw'shuffle';
 
 =head1 NAME


@@ -23,7 +30,7 @@ for the F<runtest> script. No functions are exported yet.
 =cut
 
 sub mailgroup {
 =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+$/;
 
     croak "Need a group *name*, not a numeric group id."
         if $group =~ /^\d+$/;