diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2020-01-16 09:25:55 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2020-01-21 14:17:59 +0000 |
| commit | 1ed6cef7e84432c365d6a3d876974df8ceb8c4e3 (patch) | |
| tree | 7fb49cdc7a8feb94df8f7087a40f245d6931f64f /perllib/FixMyStreet/TestMech.pm | |
| parent | 6ef6388a59e4e04ce42cb4fd6785e99460331cc5 (diff) | |
[SortMySign] Tweaks needed for tests.
Diffstat (limited to 'perllib/FixMyStreet/TestMech.pm')
| -rw-r--r-- | perllib/FixMyStreet/TestMech.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm index 5c8ae4e28..5bb975104 100644 --- a/perllib/FixMyStreet/TestMech.pm +++ b/perllib/FixMyStreet/TestMech.pm @@ -68,7 +68,7 @@ sub uniquify_email { my ($self, $email, $file) = @_; $file = (caller)[1] unless $file; - (my $pkg = $file) =~ s{/}{}g; + (my $pkg = $file) =~ s{[/\.]}{}g; if ($email =~ /@/ && $email !~ /^pkg-/) { $email = "pkg-$pkg-$email"; |