Update of /cvsroot/gaim/gaim/src
In directory usw-pr-cvs1:/tmp/cvs-serv13297/src
Modified Files:
Tag: gtk1-stable
perl.c
Log Message:
The perl fix.
Index: perl.c
===================================================================
RCS file: /cvsroot/gaim/gaim/src/perl.c,v
retrieving revision 1.72
retrieving revision 1.72.2.1
diff -u -d -r1.72 -r1.72.2.1
--- perl.c 29 May 2002 01:44:40 -0000 1.72
+++ perl.c 25 Aug 2002 02:29:19 -0000 1.72.2.1
@@ -34,6 +34,8 @@
#ifdef USE_PERL
+#define group perl_group
+
#include <EXTERN.h>
#ifndef _SEM_SEMUN_UNDEFINED
#define HAS_UNION_SEMUN
@@ -49,6 +51,7 @@
#include <dirent.h>
#include <string.h>
+#undef group
/* perl module support */
extern void xs_init _((void));
@@ -174,14 +177,14 @@
void perl_autoload()
{
DIR *dir;
- struct dirent *ent;
+ struct dirent dirent_buf;
char *buf;
char *path;
path = gaim_user_dir();
dir = opendir(path);
if (dir) {
- while ((ent = readdir(dir))) {
+ while ((readdir_r(dir,&dirent_buf,&ent),ent)) {
if (strcmp(ent->d_name, ".") && strcmp(ent->d_name, "..")) {
if (is_pl_file(ent->d_name)) {
buf = g_malloc(strlen(path) + strlen(ent->d_name) + 2);
|
