Item12952: ScriptSuffix checker fails on FreeBSD

The $0 perl variable includes the full path on FreeBSD, and the regex
gets tripped up with the "foswik.org" in the path.

core/lib/Foswiki/Configure/Checkers/ScriptSuffix.pm

@@ -8,12 +8,15 @@ use Foswiki::Configure::Checker ();
 our @ISA = ('Foswiki::Configure::Checker');
 
 sub check_current_value {
-    my ($this, $reporter) = @_;
+    my ( $this, $reporter ) = @_;
+
+    # SMELL:  On FreeBSD, $0 includes the full path.
+    # Don't allow any path components to disrupt the suffix
+    my $currentSuffix = ( $0 =~ /(\.[^.\/]*?)$/ ) ? $1 : '';
 
-    my $currentSuffix = ($0 =~ /(\.[^.]*)$/) ? $1 : '';
     my $expectedSuffix = $Foswiki::cfg{ScriptSuffix} || '';
 
-    if ($currentSuffix ne $expectedSuffix) {
+    if ( $currentSuffix ne $expectedSuffix ) {
         $reporter->WARN( <<WHINGE );
 This script ($0) does not have the expected {ScriptSuffix} ($expectedSuffix)
 WHINGE