Merge pull request #589 from salaun-urennes1/fix-scenario-name-with-dots by salaun-urennes1

Sympa::Scenario::new() was unable to load scenario filename including dots

src/lib/Sympa/Scenario.pm

@@ -151,10 +151,10 @@ sub new {
     unless (
         defined $name
         and (  $function eq 'include' and $name =~ m{\A[^/]+\z}
-            or $name =~ /\A[-\w]+\z/)
+            or $name =~ /\A[-\w\.]+\z/)
     ) {
-        $log->syslog('err', 'Unknown or undefined scenario function "%s"',
-            $function);
+        $log->syslog('err', 'Unknown or undefined scenario function "%s", scenario name "%s"',
+            $function, $name);
         return undef;
     }
 
@@ -1617,6 +1617,8 @@ sub get_scenarios {
             my $scenario =
                 Sympa::Scenario->new($that, $function, name => $name);
             $seen{$name} = 1;
+			next unless (defined $scenario);
+
             push @scenarios, $scenario;
         }
     }