t/lib/SchemaIterator.t: Ignore commas at the end of statements

This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-06-04 22:15:04 -03:00
parent 56e20d269a
commit 22de87c4eb

View File

@@ -131,7 +131,7 @@ sub sort_query_output {
my $sorted;
for my $query (@queries) {
$sorted .= join "\n", sort split /\n/, $query;
$sorted .= join "\n", sort map { my $c = $_; $c =~ s/,$//; $c } split /\n/, $query;
}
return $sorted;
}