graham's regex makes more sense than mine

This commit is contained in:
Doug Bell 2010-08-10 21:20:19 -05:00
parent e71ce09588
commit da4f2f08b3

View file

@ -233,7 +233,7 @@ sub load {
}
# Sanitize
if ( $module !~ m{^\w+(?:\w+|::)*\w+$} ) {
if ( $module !~ m{^\w+(?:::\w+)*$} ) {
croak "Invalid module name: $module";
}