diff options
| author | Daouda Lo <daouda@mandriva.com> | 2005-10-18 12:15:28 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2005-10-18 12:15:28 +0000 |
| commit | 7ec06c68c4abce46c9a8b53420f1aa5b579132f2 (patch) | |
| tree | de6a1477901203b43c45abb909fdc4129aac3ab5 /mdkonline.pm | |
| parent | 67821cdaa4b26bdb7869f2bde30efff1a215bc0f (diff) | |
| download | mgaonline-7ec06c68c4abce46c9a8b53420f1aa5b579132f2.tar mgaonline-7ec06c68c4abce46c9a8b53420f1aa5b579132f2.tar.gz mgaonline-7ec06c68c4abce46c9a8b53420f1aa5b579132f2.tar.bz2 mgaonline-7ec06c68c4abce46c9a8b53420f1aa5b579132f2.tar.xz mgaonline-7ec06c68c4abce46c9a8b53420f1aa5b579132f2.zip | |
- machine can have _ in name
Diffstat (limited to 'mdkonline.pm')
| -rw-r--r-- | mdkonline.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mdkonline.pm b/mdkonline.pm index be9ce8e4..b92651bb 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -139,7 +139,7 @@ sub check_valid_email { sub check_valid_boxname { my $boxname = shift; return 0 if length($boxname) >= 40; - my $bt = $boxname =~ /^[a-zA-Z][a-zA-Z0-9]+$/i ? 1 : 0; + my $bt = $boxname =~ /^[a-zA-Z][a-zA-Z0-9_]+$/i ? 1 : 0; $bt } |