diff options
| author | fukachan <fukachan> | 2002-07-02 12:07:33 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-02 12:07:33 +0000 |
| commit | a8a04d072eb15fe9c26b983a6295fb38d1c75a11 (patch) | |
| tree | 9c80711bee3c44f3c8c7ec867af6c55e602d0175 /fml | |
| parent | 0bc0288293ae8273d07fa7dcb232eb52a9f493ce (diff) | |
| download | fml8-a8a04d072eb15fe9c26b983a6295fb38d1c75a11.tar.gz fml8-a8a04d072eb15fe9c26b983a6295fb38d1c75a11.tar.bz2 fml8-a8a04d072eb15fe9c26b983a6295fb38d1c75a11.zip | |
more chesk for data input
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Command/Admin/byeadmin.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fml/lib/FML/Command/Admin/byeadmin.pm b/fml/lib/FML/Command/Admin/byeadmin.pm index 099365fa..fa7c1cc3 100644 --- a/fml/lib/FML/Command/Admin/byeadmin.pm +++ b/fml/lib/FML/Command/Admin/byeadmin.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: byeadmin.pm,v 1.2 2002/03/30 11:08:35 fukachan Exp $ +# $FML: byeadmin.pm,v 1.3 2002/04/03 11:32:59 fukachan Exp $ # package FML::Command::Admin::byeadmin; @@ -65,8 +65,10 @@ sub process my $address = $command_args->{ command_data } || $options->[ 0 ]; # fundamental check - croak("address is not specified") unless defined $address; - croak("\$member_map is not specified") unless $member_map; + croak("address is not undefined") unless defined $address; + croak("member_map is not undefined") unless defined $member_map; + croak("address is not specified") unless $address; + croak("member_map is not specified") unless $member_map; # FML::Command::UserControl specific parameters my $uc_args = { |