Patch for rt.cpan.org #5485: add UID to socketname

--- ./main.c

+++ ./main.c

@@ -223,6 +223,9 @@ MakeSockName(char * scriptname )

     /* strict C compilers can't/won't do char foo[variant]; */

     char *fullpath = my_malloc(path_max);

     int i = 0;

+    char euid[12];

+

+    sprintf(euid, "_%d", geteuid());

     if (realpath(scriptname, fullpath) == NULL) {

         perror("pperl: resolving full pathname to script failed");

@@ -230,7 +233,7 @@ MakeSockName(char * scriptname )

     }

     Dx(Debug("realpath returned: %s\n", fullpath));

     /* Ugh. I am a terrible C programmer! */

-    sockname = my_malloc(strlen(P_tmpdir) + strlen(fullpath) + 3);

+    sockname = my_malloc(strlen(P_tmpdir) + strlen(fullpath) + 3 + strlen(euid));

     save = sockname;

     sprintf(sockname, "%s/", P_tmpdir);

     sockname += strlen(P_tmpdir) + 1;

@@ -246,7 +249,7 @@ MakeSockName(char * scriptname )

         }

         sockname++; i++;

     }

-    *sockname = '\0';

+    strcat(sockname, euid); 

     free(fullpath);

     return save;

 }