diff options
| -rw-r--r-- | NetWare/nw5.c | 2 | ||||
| -rw-r--r-- | NetWare/nwperlhost.h | 2 | ||||
| -rw-r--r-- | NetWare/nwperlsys.h | 2 | ||||
| -rw-r--r-- | iperlsys.h | 2 | ||||
| -rw-r--r-- | win32/include/dirent.h | 2 | ||||
| -rw-r--r-- | win32/perlhost.h | 2 | ||||
| -rw-r--r-- | win32/win32.c | 2 | ||||
| -rw-r--r-- | win32/win32iop.h | 2 | ||||
| -rw-r--r-- | wince/perlhost.h | 2 | ||||
| -rw-r--r-- | wince/wince.c | 4 |
10 files changed, 11 insertions, 11 deletions
diff --git a/NetWare/nw5.c b/NetWare/nw5.c index 488111ce94..397d41a205 100644 --- a/NetWare/nw5.c +++ b/NetWare/nw5.c @@ -567,7 +567,7 @@ nw_rmdir(const char *dir) } DIR * -nw_opendir(char *filename) +nw_opendir(const char *filename) { char *buff = NULL; int len = 0; diff --git a/NetWare/nwperlhost.h b/NetWare/nwperlhost.h index 002bc676e0..a18436e402 100644 --- a/NetWare/nwperlhost.h +++ b/NetWare/nwperlhost.h @@ -961,7 +961,7 @@ PerlDirClose(struct IPerlDir* piPerl, DIR *dirp) } DIR* -PerlDirOpen(struct IPerlDir* piPerl, char *filename) +PerlDirOpen(struct IPerlDir* piPerl, const char *filename) { return nw_opendir(filename); } diff --git a/NetWare/nwperlsys.h b/NetWare/nwperlsys.h index 0d731d1fcf..5863e85751 100644 --- a/NetWare/nwperlsys.h +++ b/NetWare/nwperlsys.h @@ -184,7 +184,7 @@ PerlDirClose(struct IPerlDir* piPerl, DIR *dirp) } DIR* -PerlDirOpen(struct IPerlDir* piPerl, char *filename) +PerlDirOpen(struct IPerlDir* piPerl, const char *filename) { return nw_opendir(filename); } diff --git a/iperlsys.h b/iperlsys.h index 28e6719427..883f9357ef 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -366,7 +366,7 @@ typedef int (*LPMakedir)(struct IPerlDir*, const char*, int); typedef int (*LPChdir)(struct IPerlDir*, const char*); typedef int (*LPRmdir)(struct IPerlDir*, const char*); typedef int (*LPDirClose)(struct IPerlDir*, DIR*); -typedef DIR* (*LPDirOpen)(struct IPerlDir*, char*); +typedef DIR* (*LPDirOpen)(struct IPerlDir*, const char*); typedef struct direct* (*LPDirRead)(struct IPerlDir*, DIR*); typedef void (*LPDirRewind)(struct IPerlDir*, DIR*); typedef void (*LPDirSeek)(struct IPerlDir*, DIR*, long); diff --git a/win32/include/dirent.h b/win32/include/dirent.h index a66901234f..5037825425 100644 --- a/win32/include/dirent.h +++ b/win32/include/dirent.h @@ -42,7 +42,7 @@ typedef struct _dir_struc } DIR; #if 0 /* these have moved to win32iop.h */ -DIR * win32_opendir(char *filename); +DIR * win32_opendir(const char *filename); struct direct * win32_readdir(DIR *dirp); long win32_telldir(DIR *dirp); void win32_seekdir(DIR *dirp,long loc); diff --git a/win32/perlhost.h b/win32/perlhost.h index 3b6d11d99e..e7963cc117 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -1136,7 +1136,7 @@ PerlDirClose(struct IPerlDir* piPerl, DIR *dirp) } DIR* -PerlDirOpen(struct IPerlDir* piPerl, char *filename) +PerlDirOpen(struct IPerlDir* piPerl, const char *filename) { return win32_opendir(filename); } diff --git a/win32/win32.c b/win32/win32.c index d570264cf5..ab653c4d59 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -732,7 +732,7 @@ Perl_do_exec(pTHX_ char *cmd) * return the pointer to the current file name. */ DllExport DIR * -win32_opendir(char *filename) +win32_opendir(const char *filename) { dTHX; DIR *dirp; diff --git a/win32/win32iop.h b/win32/win32iop.h index 1683e97e54..c0937f173a 100644 --- a/win32/win32iop.h +++ b/win32/win32iop.h @@ -117,7 +117,7 @@ DllExport int win32_open_osfhandle(intptr_t handle, int flags); DllExport intptr_t win32_get_osfhandle(int fd); DllExport FILE* win32_fdupopen(FILE *pf); -DllExport DIR* win32_opendir(char *filename); +DllExport DIR* win32_opendir(const char *filename); DllExport struct direct* win32_readdir(DIR *dirp); DllExport long win32_telldir(DIR *dirp); DllExport void win32_seekdir(DIR *dirp, long loc); diff --git a/wince/perlhost.h b/wince/perlhost.h index 9e93b571e2..a71f108e7a 100644 --- a/wince/perlhost.h +++ b/wince/perlhost.h @@ -1144,7 +1144,7 @@ PerlDirClose(struct IPerlDir* piPerl, DIR *dirp) } DIR* -PerlDirOpen(struct IPerlDir* piPerl, char *filename) +PerlDirOpen(struct IPerlDir* piPerl, const char *filename) { return win32_opendir(filename); } diff --git a/wince/wince.c b/wince/wince.c index 40b578e755..c73c4b82a4 100644 --- a/wince/wince.c +++ b/wince/wince.c @@ -643,7 +643,7 @@ Perl_do_exec(pTHX_ char *cmd) * return the pointer to the current file name. */ DllExport DIR * -win32_opendir(char *filename) +win32_opendir(const char *filename) { dTHX; DIR *dirp; @@ -822,7 +822,7 @@ win32_closedir(DIR *dirp) /////!!!!!!!!!!! return here and do right stuff!!!! DllExport DIR * -win32_opendir(char *filename) +win32_opendir(const char *filename) { return opendir(filename); } |