[interchange] * Add check to make sure tag won't die if hash reference is
Mike Heins <[email protected]>
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit 62c91fbe863a9be53637428d4eb1eb6b78a59853 Author: Mike Heins <[email protected]> Date: Thu Jul 4 10:07:40 2013 -0400 * Add check to make sure tag won't die if hash reference is accidentally passed. code/SystemTag/error.coretag | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) --- diff --git a/code/SystemTag/error.coretag b/code/SystemTag/error.coretag index c120470..0cae2b3 100644 --- a/code/SystemTag/error.coretag +++ b/code/SystemTag/error.coretag @@ -38,7 +38,7 @@ sub tag_error { $opt->{keep} = 1 unless defined $opt->{keep}; my $error = delete $opt->{set}; if($opt->{param}) { - $opt->{param} = [ $opt->{param} ] unless ref($opt->{param} ); + $opt->{param} = [ $opt->{param} ] unless ref($opt->{param}) eq 'ARRAY'; $error = sprintf($error, @{$opt->{param}}); } return set_error($error, $var, $opt);