Addition to sympa-community#1053: Clip subject safely

Author: ikedas

src/lib/Sympa/List.pm

@@ -8,8 +8,8 @@
 # Copyright (c) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
 # 2006, 2007, 2008, 2009, 2010, 2011 Comite Reseau des Universites
 # Copyright (c) 2011, 2012, 2013, 2014, 2015, 2016, 2017 GIP RENATER
-# Copyright 2017, 2018, 2019, 2020 The Sympa Community. See the AUTHORS.md
-# file at the top-level directory of this distribution and at
+# Copyright 2017, 2018, 2019, 2020, 2021 The Sympa Community. See the
+# AUTHORS.md file at the top-level directory of this distribution and at
 # <https://github.com/sympa-community/sympa.git>.
 #
 # This program is free software; you can redistribute it and/or modify
@@ -6037,7 +6037,8 @@ sub _update_list_db {
 
     my $name = $self->{'name'};
     my $searchkey =
-        substr( Sympa::Tools::Text::foldcase($self->{'admin'}{'subject'} || ''), 0, 255);
+        Sympa::Tools::Text::clip(
+        Sympa::Tools::Text::foldcase($self->{'admin'}{'subject'} // ''), 255);
     my $status = $self->{'admin'}{'status'};
     my $robot  = $self->{'domain'};