This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make opendir() filename const in Win32-land & friends
authorSteve Hay <SteveHay@planit.com>
Fri, 24 Jun 2005 12:27:45 +0000 (12:27 +0000)
committerSteve Hay <SteveHay@planit.com>
Fri, 24 Jun 2005 12:27:45 +0000 (12:27 +0000)
That fact that it wasn't const already was highlighted by a warning
from pp_open_dir() generated by change 24743. Rather than undo the
const change in pp_open_dir(), this seems to make more sense. Hope I
haven't broken Netware or WinCE.

p4raw-id: //depot/perl@24974

NetWare/nw5.c
NetWare/nwperlhost.h
NetWare/nwperlsys.h
iperlsys.h
win32/include/dirent.h
win32/perlhost.h
win32/win32.c
win32/win32iop.h
wince/perlhost.h
wince/wince.c

index 488111c..397d41a 100644 (file)
@@ -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;
index 002bc67..a18436e 100644 (file)
@@ -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);
 }
index 0d731d1..5863e85 100644 (file)
@@ -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);
 }
index 28e6719..883f935 100644 (file)
@@ -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);
index a669012..5037825 100644 (file)
@@ -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);
index 3b6d11d..e7963cc 100644 (file)
@@ -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);
 }
index d570264..ab653c4 100644 (file)
@@ -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;
index 1683e97..c0937f1 100644 (file)
@@ -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);
index 9e93b57..a71f108 100644 (file)
@@ -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);
 }
index 40b578e..c73c4b8 100644 (file)
@@ -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);
 }