Skip site navigation (1)Skip section navigation (2) 
Date:      Sat, 28 Jun 2025 08:14:46 GMT
From:      Wolfram Schneider <wosch@FreeBSD.org>
To:        doc-committers@FreeBSD.org, dev-commits-doc-all@FreeBSD.org
Subject:   git: 631bd25dfb - main - The use of ' as a package separator is now officially deprecated in Perl 5.40
Message-ID:  <202506280814.55S8EkaE066731@gitrepo.freebsd.org>
next in thread | raw e-mail | index | archive | help 

The branch main has been updated by wosch:

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

commit 631bd25dfb42c2bcea096b6fa8ce66b3e9c896aa
Author:     Wolfram Schneider <wosch@FreeBSD.org>
AuthorDate: 2025-06-28 08:13:32 +0000
Commit:     Wolfram Schneider <wosch@FreeBSD.org>
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 {

Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?202506280814.55S8EkaE066731>