diff options
| author | Hakim Cassimally <hakim@mysociety.org> | 2013-12-06 17:11:05 +0000 |
|---|---|---|
| committer | Hakim Cassimally <hakim@mysociety.org> | 2013-12-09 16:51:53 +0000 |
| commit | c49719eae8dea28a96e21482df7c259f9901b296 (patch) | |
| tree | aeba6cd467e71d24a65b4b02370d091c18514a0f | |
| parent | c30d1baa32a635d8ffaf38bc7876489ed493fbbc (diff) | |
[Zurich] quash undef warning on date-check
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/Zurich.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Zurich.pm b/perllib/FixMyStreet/Cobrand/Zurich.pm index 566703168..402af7c2c 100644 --- a/perllib/FixMyStreet/Cobrand/Zurich.pm +++ b/perllib/FixMyStreet/Cobrand/Zurich.pm @@ -653,7 +653,7 @@ sub admin_stats { my %date_params; my $ym = $c->req->params->{ym}; - my ($m, $y) = $ym =~ /^(\d+)\.(\d+)$/; + my ($m, $y) = $ym ? ($ym =~ /^(\d+)\.(\d+)$/) : (); $c->stash->{ym} = $ym; if ($y && $m) { $c->stash->{start_date} = DateTime->new( year => $y, month => $m, day => 1 ); |