ovh/the-bastion
1
1
Fork 0
mirror of https://github.com/ovh/the-bastion.git synced 2024-12-26 09:35:01 +08:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Stéphane Lesimple 2024-10-23 09:00:12 +00:00 committed by Stéphane Lesimple
parent 05236c1410
commit 117f222338
3 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bin/shell/osh.pl
View file

@ -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" ;

4
lib/perl/OVH/Bastion.pm
View file

@ -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) {

4
lib/perl/OVH/Result.pm
View file

@ -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'} }