diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2019-09-03 16:33:35 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2019-09-03 16:36:43 +0100 |
| commit | 4b7da24b5d2605d25c45bbeef1328f8118334b31 (patch) | |
| tree | 9fd174166779b88627d9cd833aaa0fcaec6df5bd /perllib/Open311.pm | |
| parent | 49c74ded4275005e766a948ec47d4cc722e0567e (diff) | |
Allow more characters in name splitting.
Not sure how this has not arisen before!
Diffstat (limited to 'perllib/Open311.pm')
| -rw-r--r-- | perllib/Open311.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 07f659c0b..d1659bea1 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -461,7 +461,7 @@ sub split_name { return ('', '') unless $name; - my ( $first, $last ) = ( $name =~ /(\w+)(?:\.?\s+(.+))?/ ); + my ( $first, $last ) = ( $name =~ /(\S+)(?:\.?\s+(.+))?/ ); return ( $first || '', $last || ''); } |