This is an automated email from the git hooks/post-receive script.

x2go pushed a commit to branch master
in repository x2goserver.

commit 486611dbf1679ee218b07a7c1042bf4d91dd5b0b
Author: Mihai Moldovan <[email protected]>
Date:   Mon Nov 23 05:31:11 2020 +0100

    {X2Go/Server/Agent/NX/Options.pm,x2goserver/bin/x2goupdateoptionsstring}: 
fix/silence a few Perl::Critic warnings.
---
 X2Go/Server/Agent/NX/Options.pm        |  8 +++++++-
 debian/changelog                       |  3 +++
 x2goserver/bin/x2goupdateoptionsstring | 12 ++++++------
 3 files changed, 16 insertions(+), 7 deletions(-)

diff --git a/X2Go/Server/Agent/NX/Options.pm b/X2Go/Server/Agent/NX/Options.pm
index 83bfb70b..90132422 100644
--- a/X2Go/Server/Agent/NX/Options.pm
+++ b/X2Go/Server/Agent/NX/Options.pm
@@ -153,7 +153,13 @@ sub parse_options {
         # Thus going the manual route here.
         my $last_pos = rindex ($last_component, q{:});
 
+        # There is no English variant for this variable and it's deprecated
+        # anyway, replaced by the index 0 in most cases.
+        # We'll keep it for backwards compatibility for now and disable the
+        # warning.
+        ## no critic (Variables::ProhibitPunctuationVars)
         if ($[ > $last_pos) {
+        ## critic (Variables::ProhibitPunctuationVars)
           print {*STDERR} "No display port seperator found in the options 
string. Erroring out.\n";
           $error_detected = 1;
         }
@@ -1108,6 +1114,6 @@ both values match.
 
 This manual has been written by
 Mihai Moldovan L<E<lt>[email protected]<gt>|mailto:[email protected]> for the X2Go
-project (L<https://www.x2go.org>).
+project (L<https://www.x2go.org|https://www.x2go.org>).
 
 =cut
diff --git a/debian/changelog b/debian/changelog
index 40cd42aa..0682e3f5 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -313,6 +313,9 @@ x2goserver (4.1.0.4-0x2go1.2) UNRELEASED; urgency=medium
       abbreviation parsing into a separate function to take out nesting
       complexity. This trades off nesting complexity (to some degree) with
       code complexity.
+    - {X2Go/Server/Agent/NX/Options.pm,
+       x2goserver/bin/x2goupdateoptionsstring}: fix/silence a few Perl::Critic
+      warnings.
   * debian/control:
     + Build-depend upon lsb-release for distro version detection.
   * debian/x2goserver.manpages:
diff --git a/x2goserver/bin/x2goupdateoptionsstring 
b/x2goserver/bin/x2goupdateoptionsstring
index 689f75c9..b248add8 100755
--- a/x2goserver/bin/x2goupdateoptionsstring
+++ b/x2goserver/bin/x2goupdateoptionsstring
@@ -255,7 +255,7 @@ sub handle_mode {
 
       my %modes = ();
       foreach my $elem (MODES) {
-        $modes{(&$elem())[0]} = 1;
+        $modes{(&{$elem}())[0]} = 1;
       }
 
       my $abbrev_ret = handle_mode_abbrev ($mode);
@@ -288,7 +288,7 @@ sub handle_mode {
       # Now check if value matches a known one.
       if ((!($error_detected)) && (!($found))) {
         foreach my $elem (MODES) {
-          if (exists ($modes{(&$elem())[0]})) {
+          if (exists ($modes{(&{$elem}())[0]})) {
             $mode_parse = $elem;
             $found = 1;
             last;
@@ -311,7 +311,7 @@ sub handle_mode {
 
   # Okay, now check for mutual exclusiveness and map to return value.
   if (!($error_detected)) {
-    $ret = ($mode_aggregate | (&$mode_parse())[1]);
+    $ret = ($mode_aggregate | (&{$mode_parse}())[1]);
 
     if (($ret) && ($ret & ($ret - 1))) {
       print {*STDERR} "Mutually exclusive modes specified, erroring out.\n";
@@ -563,8 +563,8 @@ x2goupdateoptionsstring - X2Go Agent Options String 
Manipulator
 =head1 DESCRIPTION
 
 =for comment
-Due to parser oddities, breaking a line during an L<> formatter code right
-after the separating pipe character will generate broken links.
+Due to parser oddities, breaking a line during an L<dummy|text> formatter code
+right after the separating pipe character will generate broken links.
 Make sure to only break it during the description or, generally, on space
 characters.
 A workaround for this as been proposed in
@@ -695,6 +695,6 @@ C<x2goupdateoptionsstring '-c' '--'
 
 This manual has been written by
 Mihai Moldovan L<E<lt>[email protected]<gt>|mailto:[email protected]> for the X2Go
-project (L<https://www.x2go.org>).
+project (L<https://www.x2go.org|https://www.x2go.org>).
 
 =cut

--
Alioth's /home/x2go-admin/maintenancescripts/git/hooks/post-receive-email on 
/srv/git/code.x2go.org/x2goserver.git
_______________________________________________
x2go-commits mailing list
[email protected]
https://lists.x2go.org/listinfo/x2go-commits

Reply via email to