[interchange] * Add check to make sure tag won't die if hash reference is
Mike Heins
interchange-cvs at icdevgroup.org
Thu Jul 4 14:08:57 UTC 2013
commit 62c91fbe863a9be53637428d4eb1eb6b78a59853
Author: Mike Heins <heins at icdevgroup.com>
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);
More information about the interchange-cvs
mailing list