From 22de87c4ebea2a4d28b311fe14f50413d4bd850c Mon Sep 17 00:00:00 2001
From: "Brian Fraser fraserb@gmail.com" <>
Date: Mon, 4 Jun 2012 22:15:04 -0300
Subject: [PATCH] t/lib/SchemaIterator.t: Ignore commas at the end of
 statements

---
 t/lib/SchemaIterator.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/lib/SchemaIterator.t b/t/lib/SchemaIterator.t
index ddcece1e..5b01196c 100644
--- a/t/lib/SchemaIterator.t
+++ b/t/lib/SchemaIterator.t
@@ -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;
 }