Update my2pg to version 1.22.

diff --git a/contrib/mysql/my2pg.pl b/contrib/mysql/my2pg.pl
index 655414085f085b39a2994e5e3210c19fff4dcb16..585a9674910f5605d04c00292d9d74d9b11d2592 100755 (executable)
--- a/contrib/mysql/my2pg.pl
+++ b/contrib/mysql/my2pg.pl
@@ -35,8 +35,8 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
-# $My2pg: my2pg.pl,v 1.21 2001/08/25 18:55:28 fonin Exp $
-# $Id: my2pg.pl,v 1.5 2001/11/21 02:43:30 momjian Exp $
+# $My2pg: my2pg.pl,v 1.22 2001/12/06 19:32:20 fonin Exp $
+# $Id: my2pg.pl,v 1.6 2002/01/07 22:36:51 momjian Exp $
 
 # TODO:
 # + Handle SETs
@@ -47,8 +47,14 @@
 
 #
 # $Log: my2pg.pl,v $
-# Revision 1.5  2001/11/21 02:43:30  momjian
-# Update my2pg.pl for release.
+# Revision 1.6  2002/01/07 22:36:51  momjian
+# Update my2pg to version 1.22.
+#
+# Revision 1.22  2001/12/06 19:32:20  fonin
+# Patch: On line 594 where you check for UNIQUE, I believe the regex should try
+# and match 'UNIQUE KEY'. Otherwise it outputs no unique indexes for the
+# postgres dump.
+# Thanks to Brad Hilton 
 #
 # Revision 1.21  2001/08/25 18:55:28  fonin
 # Incorporated changes from Yunliang Yu :
@@ -141,7 +147,7 @@ if($opts{d} ne '') {
 $|=1;
 
 print("------------------------------------------------------------------");
-print("\n-- My2Pg \$Revision: 1.5 $ \translated dump");
+print("\n-- My2Pg \$Revision: 1.6 $ \translated dump");
 print("\n--");
 print("\n------------------------------------------------------------------");
 
@@ -163,7 +169,7 @@ $libtypename.='/libtypes.so';
 # push header to libtypes.c
 open(LIBTYPES,">$libtypesource");
 print LIBTYPES "/******************************************************";
-print LIBTYPES "\n * My2Pg \$Revision: 1.5 $ \translated dump";
+print LIBTYPES "\n * My2Pg \$Revision: 1.6 $ \translated dump";
 print LIBTYPES "\n * User types definitions";
 print LIBTYPES "\n ******************************************************/";
 print LIBTYPES "\n\n#include \n";
@@ -627,7 +633,7 @@ CREATE OPERATOR <> (
    $tmpfld=~s/\s*,\s*/","/g if $dq;
    $index{$table_name}[++$j]="CREATE INDEX ${ky}_$table_name\_index ON $dq$table_name$dq ($dq$tmpfld$dq);";
     }
-    if(/^\s*UNIQUE ([\w\d_]+)\s*\((.*)\).*/i) {
+    if(/^\s*UNIQUE.*?([\w\d_]+)\s*\((.*)\).*/i) {
    my $tmpfld=$2; my $ky=$1;
    $tmpfld=~s/,/","/g if $dq;
    $index{$table_name}[++$j]="CREATE UNIQUE INDEX ${ky}_$table_name\_index ON $dq$table_name$dq ($dq$tmpfld$dq);";
@@ -694,7 +700,7 @@ close(LIBTYPES);
 
 open(MAKE,">Makefile");
 print MAKE "#
-# My2Pg \$Revision: 1.5 $ \translated dump
+# My2Pg \$Revision: 1.6 $ \translated dump
 # Makefile
 #
 
@@ -908,6 +914,7 @@ B<(c) 2000 Valentine V. Danilchuk ([email protected])>
 Jeff Waugh 
 Joakim Lemström  || 
 Yunliang Yu 
+Brad Hilton 
 
 =head1 LICENSE