diff options
| author | M Somerville <matthew-github@dracos.co.uk> | 2020-08-17 16:44:52 +0100 |
|---|---|---|
| committer | M Somerville <matthew-github@dracos.co.uk> | 2020-08-17 16:44:52 +0100 |
| commit | f87b0e3e9c3ca1f67f4ecbff9065f2eeed1e81e9 (patch) | |
| tree | c49cdf83e30a9b0afa1addbe5c15678c6e448b58 | |
| parent | 261be473683fde3df6aa3e50bbb17a3359840b62 (diff) | |
Fix undefined value warning.
| -rw-r--r-- | perllib/FixMyStreet/Reporting.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/Reporting.pm b/perllib/FixMyStreet/Reporting.pm index b5b5876b9..4573d78fc 100644 --- a/perllib/FixMyStreet/Reporting.pm +++ b/perllib/FixMyStreet/Reporting.pm @@ -88,7 +88,7 @@ has filename => ( is => 'rw', isa => Str, lazy => 1, default => sub { $self->on_updates ? ('updates') : (), map { my $value = $where{$_}; - (my $nosp = $value) =~ s/ /-/g; + (my $nosp = $value || '') =~ s/ /-/g; (defined $value and length $value) ? ($_, $nosp) : () } sort keys %where }); |