diff options
| author | Struan Donald <struan@exo.org.uk> | 2011-05-16 13:59:44 +0100 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2011-05-16 13:59:44 +0100 |
| commit | 218ea6d7547cf3b9c8bf1196f4849a1cf8d7b955 (patch) | |
| tree | 4899c8a0e1d7b551469ff3a55764646dc91926c9 | |
| parent | ac3eda01d488dc166596d266c82523a5f3a2670a (diff) | |
remove uninitialised variable warning if no email param
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Report/New.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Report/New.pm b/perllib/FixMyStreet/App/Controller/Report/New.pm index e16739458..2c1f65d96 100644 --- a/perllib/FixMyStreet/App/Controller/Report/New.pm +++ b/perllib/FixMyStreet/App/Controller/Report/New.pm @@ -575,7 +575,7 @@ sub process_user : Private { ( 'email', 'name', 'phone', ); # cleanup the email address - my $email = lc $params{email}; + my $email = $params{email} ? lc $params{email} : ''; $email =~ s{\s+}{}g; my $report = $c->stash->{report}; |