From 501a9a9e0fd6b17ada58d62201fb775ccb050b4c Mon Sep 17 00:00:00 2001
From: Greg Sabino Mullane <greg@users.mediawiki.org>
Date: Tue, 14 Nov 2006 03:03:44 +0000
Subject: [PATCH] Add in 'binary' mysql schema.

---
 maintenance/postgres/compare_schemas.pl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/maintenance/postgres/compare_schemas.pl b/maintenance/postgres/compare_schemas.pl
index f8305a00d4..cdbbdf411b 100644
--- a/maintenance/postgres/compare_schemas.pl
+++ b/maintenance/postgres/compare_schemas.pl
@@ -7,7 +7,7 @@ use strict;
 use warnings;
 use Data::Dumper;
 
-my @old = ("../tables.sql", "../mysql5/tables.sql");
+my @old = ("../tables.sql", "../mysql5/tables.sql", "../mysql5/tables-binary.sql");
 my $new = "tables.sql";
 my @xfile;
 
@@ -53,8 +53,7 @@ my $engine = qr{TYPE|ENGINE};
 
 my $tabletype = qr{InnoDB|MyISAM|HEAP|HEAP MAX_ROWS=\d+};
 
-my $charset = qr{utf8};
-
+my $charset = qr{utf8|binary};
 
 open my $newfh, "<", $new or die qq{Could not open $new: $!\n};
 
@@ -137,6 +136,10 @@ for my $table (sort keys %{$old{$oldfile}}) {
 		($oldfile !~ /5/ and $t->{engine} ne 'TYPE')) {
 		die "Invalid engine for $oldfile: $t->{engine}\n" unless $t->{name} eq 'profiling';
 	}
+	my $charset = $t->{charset} || '';
+	if ($oldfile !~ /binary/ and $charset eq 'binary') {
+		die "Invalid charset for $oldfile: $charset\n";
+	}
 }
 
 my $dtype = join '|' => qw(
-- 
2.20.1