guard against non-array values in stringify

diff --git a/stemmaweb/lib/stemmaweb/Controller/Stexaminer.pm b/stemmaweb/lib/stemmaweb/Controller/Stexaminer.pm
index 3c8b7bd..309f8d6 100644 (file)
--- a/stemmaweb/lib/stemmaweb/Controller/Stexaminer.pm
+++ b/stemmaweb/lib/stemmaweb/Controller/Stexaminer.pm
@@ -88,8 +88,11 @@ sub index :Path :Args(1) {
 
 sub _stringify_element {
        my( $hash, $key ) = @_;
-       my $str = join( ', ', @{$hash->{$key}} );
-       $hash->{$key} = $str;
+       return undef unless exists $hash->{$key};
+       if( ref( $hash->{$key} ) eq 'ARRAY' ) {
+               my $str = join( ', ', @{$hash->{$key}} );
+               $hash->{$key} = $str;
+       }
 }
 
 =head2 graphsvg