kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lib: replace shift my @_ (pt2)

Browse Source
This commit is contained in:
Milan
2023-05-19 18:00:29 +02:00
parent 3a1a118eeb
commit fe857c6f65
32 changed files with 203 additions and 332 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/calcms/template.pm
View File

@@ -120,8 +120,8 @@ sub initTemplate($) {
sub setRelativeUrls;
sub setRelativeUrls {
my $params = shift;
my $depth = shift || 0;
my ($params, $depth) = @_;
$depth ||= 0;
return unless defined $params;
@@ -164,10 +164,9 @@ sub setRelativeUrls {
}
sub check($;$$) {
my $config = shift;
my $template = shift || '';
my $default = shift;
my ($config, $template, $default) = @_;
$template ||= '';
if ( $template =~ /json\-p/ ) {
$template =~ s/[^a-zA-Z0-9\-\_\.]//g;
$template =~ s/\.{2,99}/\./g;