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

8
lib/calcms/log.pm
View File

@@ -23,7 +23,7 @@ sub error($$) {
}
sub load_file($) {
my $filename = shift;
my ($filename) = @_;
my $content = '';
if ( -e $filename ) {
@@ -36,8 +36,7 @@ sub load_file($) {
}
sub save_file($$) {
my $filename = shift;
my $content = shift;
my ($filename, $content) = @_;
#check if directory is writeable
if ( $filename =~ /^(.+?)\/[^\/]+$/ ) {
@@ -57,8 +56,7 @@ sub save_file($$) {
}
sub append_file($$) {
my $filename = shift;
my $content = shift;
my ($filename, $content) = @_;
unless ( ( defined $filename ) && ( $filename ne '' ) && ( -e $filename ) ) {
print STDERR "cannot append, file '$filename' does not exist\n";