[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