Commit ba638908 authored by Robert Ricci's avatar Robert Ricci
Browse files

Add explicit check for malformed type strings

parent 0310485e
...@@ -117,6 +117,11 @@ sub new($$$;$) { ...@@ -117,6 +117,11 @@ sub new($$$;$) {
return undef; return undef;
} }
$self->{SWITCHTYPE} = $1; $self->{SWITCHTYPE} = $1;
if (!$self->{SWITCHTYPE}) {
warn "ERROR: Unable to determine type of switch $self->{NAME} from " .
"string '$options->{type}'\n";
return undef;
}
if ($2) { if ($2) {
$self->{NON_MODULAR_HACK} = 1; $self->{NON_MODULAR_HACK} = 1;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment