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

4
Webperl/Utils.pm
View File

@ -500,14 +500,12 @@ 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] ];
} }
} }
}
# ============================================================================ # ============================================================================
# OS specific functions # OS specific functions