avoid an undefined value warning if there's no title suffix

diff --git a/site/cgi-bin/modules/BSE/UI/Page.pm b/site/cgi-bin/modules/BSE/UI/Page.pm
index 6fc4f064013dae76faea5324acdeeb10234c3d07..4ab5f379de5935f557cdaa57d2728478f995fba3 100644 (file)
--- a/site/cgi-bin/modules/BSE/UI/Page.pm
+++ b/site/cgi-bin/modules/BSE/UI/Page.pm
@@ -81,7 +81,7 @@ sub dispatch {
       my $alias = $page;
       if ($cfg->entry("basic", "alias_suffix", 1)) {
        $alias =~ s((/[0-9a-zA-Z_-]+)$)();
-       $dump .= "Stripped title suffix '$1'\n";
+       $dump .= "Stripped title suffix '$1'\n" if defined $1;
       }
       if ($cfg->entry("basic", "alias_recursive") &&
          $alias =~ m(/([0-9a-zA-Z_-]+)$)) {