iarv/znc
1
0
Fork 0
mirror of https://github.com/znc/znc.git synced 2026-03-28 17:42:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

unify indents in startup.pl

Browse Source
This commit is contained in:
Alexey Sokolov
2024-10-13 21:27:42 +01:00
parent fcef28737e
commit a3867d100f
1 changed files with 23 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
modules/modperl/startup.pl
View File

@@ -38,13 +38,13 @@ use feature 'switch', 'say';
package ZNC::String;
use overload '""' => sub {
my $self = shift;
my @caller = caller;
# When called from internal SWIG subroutines, return default stringification (e.g. 'ZNC::String=SCALAR(0x6210002fe090)') instead of the stored string.
# Otherwise, ZNC crashes with use-after-free.
# SWIG uses it as key for a hash, so without the number in the returned string, different strings which happen to represent the same value, collide.
return $self if $caller[0] eq 'ZNC::String';
return $self->GetPerlStr;
my $self = shift;
my @caller = caller;
# When called from internal SWIG subroutines, return default stringification (e.g. 'ZNC::String=SCALAR(0x6210002fe090)') instead of the stored string.
# Otherwise, ZNC crashes with use-after-free.
# SWIG uses it as key for a hash, so without the number in the returned string, different strings which happen to represent the same value, collide.
return $self if $caller[0] eq 'ZNC::String';
return $self->GetPerlStr;
};
package ZNC::CMessage;
@@ -669,28 +669,28 @@ sub CreateSocket {
}
sub t_s {
my $self = shift;
my $module = ref $self;
my $english = shift;
my $context = shift//'';
ZNC::CTranslation::Get->Singular("znc-$module", $context, $english);
my $self = shift;
my $module = ref $self;
my $english = shift;
my $context = shift//'';
ZNC::CTranslation::Get->Singular("znc-$module", $context, $english);
}
sub t_f {
my $self = shift;
my $fmt = $self->t_s(@_);
return sub { sprintf $fmt, @_ }
my $self = shift;
my $fmt = $self->t_s(@_);
return sub { sprintf $fmt, @_ }
}
sub t_p {
my $self = shift;
my $module = ref $self;
my $english = shift;
my $englishes = shift;
my $num = shift;
my $context = shift//'';
my $fmt = ZNC::CTranslation::Get->Plural("znc-$module", $context, $english, $englishes, $num);
return sub { sprintf $fmt, @_ }
my $self = shift;
my $module = ref $self;
my $english = shift;
my $englishes = shift;
my $num = shift;
my $context = shift//'';
my $fmt = ZNC::CTranslation::Get->Plural("znc-$module", $context, $english, $englishes, $num);
return sub { sprintf $fmt, @_ }
}
# TODO is t_d needed for perl? Maybe after AddCommand is implemented