iiiypuk/hexchat
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update XChat to r1511

Browse Source
This commit is contained in:
Berke Viktor 2012-07-13 20:07:47 +02:00
parent 6fd3a18fcf
commit 683a60abff
1 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
plugins/perl/perl.c
View File

@ -72,6 +72,43 @@ thread_mbox (char *str)
/* leave this before XSUB.h, to avoid readdir() being redefined */ /* leave this before XSUB.h, to avoid readdir() being redefined */
#ifdef WIN32
static void
perl_auto_load_from_path (const char *path)
{
WIN32_FIND_DATA find_data;
HANDLE find_handle;
char *search_path;
int path_len = strlen (path);
/* +6 for \*.pl and \0 */
search_path = malloc(path_len + 6);
sprintf (search_path, "%s\\*.pl", path);
find_handle = FindFirstFile (search_path, &find_data);
if (find_handle != INVALID_HANDLE_VALUE)
{
do
{
if (!(find_data.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY
||find_data.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN))
{
char *full_path =
malloc (path_len + strlen (find_data.cFileName) + 2);
sprintf (full_path, "%s\\%s", path, find_data.cFileName);
perl_load_file (full_path);
free (full_path);
}
}
while (FindNextFile (find_handle, &find_data) != 0);
FindClose (find_handle);
}
free (search_path);
}
#else
static void static void
perl_auto_load_from_path (const char *path) perl_auto_load_from_path (const char *path)
{ {
@ -92,6 +129,7 @@ perl_auto_load_from_path (const char *path)
closedir (dir); closedir (dir);
} }
} }
#endif
static int static int
perl_auto_load (void *unused) perl_auto_load (void *unused)