diff options
| author | fukachan <fukachan> | 2001-10-11 23:59:54 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-11 23:59:54 +0000 |
| commit | 6573df9ef4ff685c4cca3076322e373687dd4761 (patch) | |
| tree | 2f133d59cfb3e406fe910fcce7e876361ca29859 /fml/lib/FML/Command | |
| parent | 8845745e8f9f874974603655d6f0186ee9c394f1 (diff) | |
| download | fml8-6573df9ef4ff685c4cca3076322e373687dd4761.tar.gz fml8-6573df9ef4ff685c4cca3076322e373687dd4761.tar.bz2 fml8-6573df9ef4ff685c4cca3076322e373687dd4761.zip | |
check address is specified or not
Diffstat (limited to 'fml/lib/FML/Command')
| -rw-r--r-- | fml/lib/FML/Command/Admin/subscribe.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fml/lib/FML/Command/Admin/subscribe.pm b/fml/lib/FML/Command/Admin/subscribe.pm index f555da32..d2e28d06 100644 --- a/fml/lib/FML/Command/Admin/subscribe.pm +++ b/fml/lib/FML/Command/Admin/subscribe.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: subscribe.pm,v 1.2 2001/08/26 13:09:29 fukachan Exp $ +# $FML: subscribe.pm,v 1.3 2001/09/13 11:53:30 fukachan Exp $ # package FML::Command::Admin::subscribe; @@ -44,6 +44,7 @@ sub process my $address = $optargs->{ address } || $options->[ 0 ]; # fundamental check + croak("address is not specified") unless defined $address; croak("\$member_map is not specified") unless $member_map; croak("\$recipient_map is not specified") unless $recipient_map; |