Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cleanup argument handling

Browse Source
This commit is contained in:
Chris 2016-09-25 15:01:20 +01:00
parent 47e978c44a
commit 29015e28a4
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Webperl/Utils.pm
View File

@ -500,12 +500,10 @@ sub array_or_arrayref {
if(scalar(@args) > 1) { if(scalar(@args) > 1) {
return \@args; return \@args;
} else(scalar(@args) == 1) { } elsif(ref($args[0]) eq "ARRAY") {
if(ref($args[0]) eq "ARRAY") { return $args[0];
return $args[0]; } else {
} else { return [ $args[0] ];
return [ $args[0] ];
}
} }
} }