chore: change pod cuts to make recent versions of perltidy happy

ovh · Oct 23, 2024 · 117f222 · 117f222
1 parent 05236c1
commit 117f222
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 3 deletions.
diff --git a/bin/shell/osh.pl b/bin/shell/osh.pl
@@ -1973,7 +1973,8 @@ sub do_plugin_jit_mfa {
 #
 sub help {
 
-=cut just to debug memory fingerprint
+=begin comment
+    # pod just to debug memory fingerprint
     use Devel::Size qw[total_size]; # pragma optional module
     my %siz;
     foreach (keys %::main::main::)
@@ -1985,6 +1986,7 @@ sub help {
         printf "%9d: %s\n", $_, join(' ', @{$siz{$_}});
     }
     exit OVH::Bastion::EXIT_OK;
+=end comment
 =cut
 
     print STDERR <<"EOF" ;

diff --git a/lib/perl/OVH/Bastion.pm b/lib/perl/OVH/Bastion.pm
@@ -394,12 +394,14 @@ sub is_account_active {
         return R('ERR_INTERNAL', msg => "The account activeness check program failed. Report this to sysadmin!");
     }
 
-=cut exit code meanings are as follows:
+=begin comment
+    # exit code meanings are as follows:
     EXIT_ACTIVE                => 0,
     EXIT_INACTIVE              => 1,
     EXIT_UNKNOWN               => 2,
     EXIT_UNKNOWN_SILENT_ERROR  => 3,
     EXIT_UNKNOWN_NOISY_ERROR   => 4,
+=end comment
 =cut
 
     if ($fnret->value->{'status'} == 0) {

diff --git a/lib/perl/OVH/Result.pm b/lib/perl/OVH/Result.pm
@@ -47,7 +47,8 @@ sub new {                 ## no critic (ArgUnpacking)
 
 sub R { return OVH::Result->new(err => shift, @_); }
 
-=cut uncomment for result tracing
+=begin comment
+# uncomment for result tracing
 sub R {
     my ($package, $filename, $line) = caller(0);
     my (undef,undef,undef,$sub)     = caller(1);
@@ -56,6 +57,7 @@ sub R {
     print "R[err=$err msg=".$params{'msg'}."] sub=$sub in $filename:$line\n";
     return OVH::Result->new(err => $err, %params);
 }
+=end comment
 =cut
 
 sub err   { return shift->{'err'} }