Select Code to Download

Use of uninitialized value in pattern match (m//) at ....

my $_name = param('name');
my ($name) = $_name =~ /^([[:alpha:]]+)$/ if defined $_name;
...
     and    defined $color
     and    defined $otherReqParameter;
....

my ($name) =          (param('name')         ||'') =~ /^([[:alpha:][:p
+unct:][:space:]]+)$/;
my ($color) =         (param('color')        ||'') =~ /^([[:alpha:]]+)
+$/;
...
     
# If we got here we have everything we need, untainted.
...