interchange-cvs at icdevgroup
Jul 4, 2013, 7:08 AM
Post #1 of 1
(40 views)
Permalink
|
|
[interchange] * Add check to make sure tag won't die if hash reference is
|
|
commit 62c91fbe863a9be53637428d4eb1eb6b78a59853
Author: Mike Heins <heins [at] icdevgroup>
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);
_______________________________________________
interchange-cvs mailing list
interchange-cvs [at] icdevgroup
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs
|
