git: 631bd25dfb - main - The use of ' as a package separator is now officially deprecated in Perl 5.40

The branch main has been updated by wosch:

URL: https://cgit.FreeBSD.org/doc/commit/?id=631bd25dfb42c2bcea096b6fa8ce66b3e9c896aa

commit 631bd25dfb42c2bcea096b6fa8ce66b3e9c896aa
Author:     Wolfram Schneider <[email protected]>
AuthorDate: 2025-06-28 08:13:32 +0000
Commit:     Wolfram Schneider <[email protected]>
CommitDate: 2025-06-28 08:13:32 +0000

    The use of ' as a package separator is now officially deprecated in Perl 5.40
---
 website/content/en/cgi/man.cgi | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/website/content/en/cgi/man.cgi b/website/content/en/cgi/man.cgi
index e5769b2b90..ca471806cf 100755
--- a/website/content/en/cgi/man.cgi
+++ b/website/content/en/cgi/man.cgi
@@ -1369,7 +1369,7 @@ $want_to_link_to_this_page = 1;
 
 # CGI Interface -- runs at load time
 &do_man( &env('SCRIPT_NAME'), &env('PATH_INFO'), &env('QUERY_STRING') )
-  unless defined($main'plexus_configured);
+  unless defined($main::plexus_configured);
 
 #
 # end of config
@@ -1607,15 +1607,15 @@ sub http_header {
     print qq{Content-disposition: inline; filename="$filename"\n}
       if $filename;
 
-    if ( defined($main'plexus_configured) ) {
-        &main'MIME_header( 'ok', $content_type );
+    if ( defined($main::plexus_configured) ) {
+        &main::MIME_header( 'ok', $content_type );
     }
     else {
         print "Content-type: $content_type\n\n";
     }
 }
 
-sub env { defined( $main'ENV{ $_[0] } ) ? $main'ENV{ $_[0] } : undef; }
+sub env { defined( $main::ENV{ $_[0] } ) ? $main::ENV{ $_[0] } : undef; }
 
 sub apropos {
     local ($query, $sektion) = @_;
@@ -2098,7 +2098,7 @@ sub dec {
 
 #
 # Splits up a query request, returns an array of items.
-# usage: @items = &main'splitquery($query);
+# usage: @items = &main::splitquery($query);
 #
 sub splitquery {
     local ($query) = @_;
@@ -2566,13 +2566,13 @@ $head
 }
 
 sub secure_env {
-    $main'ENV{'PATH'}    = '/bin:/usr/bin';
-    $main'ENV{'MANPATH'} = $manPath{$manPathDefault};
-    $main'ENV{'IFS'}     = " \t\n";
-    $main'ENV{'PAGER'}   = 'cat';
-    $main'ENV{'SHELL'}   = '/bin/sh';
-    $main'ENV{'LANG'}    = 'C';
-    undef $main'ENV{'DISPLAY'};
+    $main::ENV{'PATH'}    = '/bin:/usr/bin';
+    $main::ENV{'MANPATH'} = $manPath{$manPathDefault};
+    $main::ENV{'IFS'}     = " \t\n";
+    $main::ENV{'PAGER'}   = 'cat';
+    $main::ENV{'SHELL'}   = '/bin/sh';
+    $main::ENV{'LANG'}    = 'C';
+    undef $main::ENV{'DISPLAY'};
 }
 
 sub include_output {