diff options
Diffstat (limited to 'test/lib/Exim')
| -rw-r--r-- | test/lib/Exim/Runtest.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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+$/; |