Update from 2.50 to 3.01. Transfer maintainership to the submitter.

PR:	ports/84412
Submitted by:	Bjorn Konig

databases/mysqltcl/Makefile

@@ -6,11 +6,11 @@
 #
 
 PORTNAME=	mysqltcl
-PORTVERSION=	2.50
+PORTVERSION=	3.01
 CATEGORIES=	databases tcl83 tcl84
 MASTER_SITES=	http://www.xdobry.de/mysqltcl/
 
-MAINTAINER=	mi@aldan.algebra.com
+MAINTAINER=	bkoenig@cs.tu-berlin.de
 COMMENT=	TCL module for accessing MySQL databases based on msqltcl
 
 LIB_DEPENDS=	${TCL_NODOT}:${PORTSDIR}/lang/${TCL_NODOT}
@@ -26,6 +26,11 @@ MAKE_ENV+=	PORTVERSION="${PORTVERSION}" \
 		TCL_NODOT="${TCL_NODOT}"
 MAKEFILE=	${FILESDIR}/Makefile.bsd
 ALL_TARGET=	shlib
+USE_REINPLACE=	yes
+REINPLACE_ARGS=	-i ''
+
+pre-patch:
+	${REINPLACE_CMD} -e 's, *
,,' ${WRKSRC}/generic/*.[ch]
 
 do-install:
 	${MKDIR} ${SQL_DIR}

databases/mysqltcl/distinfo

@@ -1,2 +1,2 @@
-MD5 (mysqltcl-2.50.tar.gz) = 0a1c263ab659ddb0f0927bb10a90bb5d
-SIZE (mysqltcl-2.50.tar.gz) = 143641
+MD5 (mysqltcl-3.01.tar.gz) = 8e3df0d77b78e14680288dce72d79304
+SIZE (mysqltcl-3.01.tar.gz) = 168408

databases/mysqltcl/files/patch-ab

@@ -1,8 +0,0 @@
---- doc/mysqltcl.n	Mon Jul  6 12:04:27 1998
-+++ doc/mysqltcl.n	Wed Sep  1 01:52:23 1999
-@@ -36,2 +36,5 @@
- MySQLTcl - MySQL server access commands for Tcl
-+.SH SYNOPSIS
-+.P
-+package require mysqltcl
- .SH "INTRODUCTION"

databases/mysqltcl/files/patch-warnings

@@ -0,0 +1,45 @@
+--- generic/mysqltcl.c	Mon Dec 27 07:34:33 2004
++++ generic/mysqltcl.c	Sun Jul 31 19:43:08 2005
+@@ -184,5 +184,4 @@
+ {
+     Tcl_ObjType *oldTypePtr = objPtr->typePtr;
+-    Tcl_HashEntry *entryPtr;
+ 
+     if ((oldTypePtr != NULL) && (oldTypePtr->freeIntRepProc != NULL)) {
+@@ -1389,6 +1388,6 @@
+ {
+   MysqltclState *statePtr = (MysqltclState *)clientData; 
+-  int code ;
+-  int count ;
++  int code = TCL_ERROR;
++  int count = 0;
+ 
+   MysqlTclHandle *handle;
+@@ -1398,5 +1397,4 @@
+   MYSQL_ROW row ;
+   int *val = NULL;
+-  int breakLoop = 0;
+   unsigned long *lengths;
+   
+@@ -1456,13 +1454,8 @@
+       case TCL_CONTINUE:
+       case TCL_OK:
+-	break ;
+-      case TCL_BREAK:
+-	breakLoop=1;
+-	break;
++	continue;
+       default:
+-	breakLoop=1;
+-	break;
+       }
+-      if (breakLoop==1) break;
++      break;
+     }
+   }
+@@ -2150,5 +2143,4 @@
+ static int Mysqltcl_NewNull(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[])
+ {
+-  Tcl_Obj *objPtr;
+   if (objc != 1) {
+       Tcl_WrongNumArgs(interp, 1, objv, "");