improve spliting name into first and last names

2 files changed, 3 insertions, 3 deletions

diff --git a/perllib/FixMyStreet/SendReport/Open311.pm b/perllib/FixMyStreet/SendReport/Open311.pm
index ceb7a9f09..d00965195 100644
--- a/perllib/FixMyStreet/SendReport/Open311.pm
+++ b/perllib/FixMyStreet/SendReport/Open311.pm
@@ -58,7 +58,7 @@ sub send {
             # make sure we have last_name attribute present in row's extra, so
             # it is passed correctly to Bromley as attribute[]
             if ( $row->cobrand ne 'bromley' ) {
-                my ( $firstname, $lastname ) = ( $row->user->name =~ /(\w+)\s+(.+)/ );
+                my ( $firstname, $lastname ) = ( $row->user->name =~ /(\w+)\.?\s+(.+)/ );
                 push @$extra, { name => 'last_name', value => $lastname };
             }
 
diff --git a/perllib/Open311.pm b/perllib/Open311.pm
index e29971612..bd665ed3e 100644
--- a/perllib/Open311.pm
+++ b/perllib/Open311.pm
@@ -93,7 +93,7 @@ sub _populate_service_request_params {
         );
     }
 
-    my ( $firstname, $lastname ) = ( $problem->user->name =~ /(\w+)\s+(.+)/ );
+    my ( $firstname, $lastname ) = ( $problem->user->name =~ /(\w+)\.?\s+(.+)/ );
 
     my $params = {
         email => $problem->user->email,
@@ -263,7 +263,7 @@ sub _populate_service_request_update_params {
     my $comment = shift;
 
     my $name = $comment->name || $comment->user->name;
-    my ( $firstname, $lastname ) = ( $name =~ /(\w+)\s+(.+)/ );
+    my ( $firstname, $lastname ) = ( $name =~ /(\w+)\.?\s+(.+)/ );
 
     my $params = {
         update_id_ext => $comment->id,