Skip to content
Browse files

Use hash reference instead of string concatenation for dump key produ…

…ced by dangling method.
  • Loading branch information...
1 parent 03d84a0 commit 0076c44955369408ead9d63dc32338a2ad4b8cbc @racke committed
Showing with 3 additions and 2 deletions.
  1. +1 −1 lib/Template/Flute/Specification.pm
  2. +2 −1 scripts/flute
View
2 lib/Template/Flute/Specification.pm
@@ -636,7 +636,7 @@ sub dangling {
push @empty, {
type => $internal,
name => $struct,
- dump => join(' ', %$el),
+ dump => $el,
}
}
}
View
3 scripts/flute
@@ -22,6 +22,7 @@ use warnings;
use utf8;
use Getopt::Long;
+use Data::Dumper;
use File::Temp qw(tempfile);
use Template::Flute;
@@ -202,7 +203,7 @@ if ($opts{check}) {
if (my @empty = $flute->specification->dangling) {
warn "Found dangling elements in the specification\n";
foreach my $el (@empty) {
- warn "$el->{type} $el->{name} ($el->{dump})\n";
+ warn "$el->{type} $el->{name} ", Dumper($el->{dump});
}
die "Bad specification!\n";
}

0 comments on commit 0076c44

Please sign in to comment.
Something went wrong with that request. Please try again.