pd 0.42-0 test 05

svn path=/trunk/; revision=10301

1 files changed, 12 insertions, 4 deletions

diff --git a/pd/src/t_tkcmd.c b/pd/src/t_tkcmd.c
index bd6ff5a5..6d863c15 100644
--- a/pd/src/t_tkcmd.c
+++ b/pd/src/t_tkcmd.c
@@ -333,7 +333,7 @@ gotit: ;
 
 #ifdef STARTGUI
 
-/* #define DEBUGCONNECT */
+#define DEBUGCONNECT
 
 #ifdef DEBUGCONNECT
 static FILE *debugfd;
@@ -618,11 +618,19 @@ void pdgui_setname(char *s)
 int Pdtcl_Init(Tcl_Interp *interp)
 {
     const char *argv = Tcl_GetVar(interp, "argv", 0);
-    int portno, argno = 0;
-    if (argv && (portno = atoi(argv)) > 1)
+    int portno = 0, i;
+    if (argv)
+    {
+        for (i = 0; i < (int)strlen(argv) - 1; i++)
+            if (argv[i] >= '0' && argv[i] <= '9')
+        {
+            portno = atoi(argv+i);
+            break;
+        }
+    }
+    if (portno)
         pdgui_setsock(portno);
 #ifdef DEBUGCONNECT
-        pd_portno = portno;
     debugfd = fopen("/tmp/bratwurst", "w");
     fprintf(debugfd, "turning stderr back on\n");
     fflush(debugfd);