Make PerlLIOUtime()'s filename const

Fixes a warning brought about by change #25941 (which made the
filename argument const).
The various implementations of PerlLIOUtime() (in NetWare/, win32/
and wince/) already take a const filename.
p4raw-link: @25941 on //depot/perl: e96b369dc61077fe31b75895167f55dbce4d7519

p4raw-id: //depot/perl@25945

diff --git a/NetWare/nwperlhost.h b/NetWare/nwperlhost.h
index a18436e..ff3fdee 100644 (file)
--- a/NetWare/nwperlhost.h
+++ b/NetWare/nwperlhost.h
@@ -890,7 +890,7 @@ PerlLIOUnlink(struct IPerlLIO* piPerl, const char *filename)
 }
 
 int
-PerlLIOUtime(struct IPerlLIO* piPerl, char *filename, struct utimbuf *times)
+PerlLIOUtime(struct IPerlLIO* piPerl, const char *filename, struct utimbuf *times)
 {
     return nw_utime(filename, times);
 }

diff --git a/NetWare/nwperlsys.h b/NetWare/nwperlsys.h
index 5863e85..ed1b632 100644 (file)
--- a/NetWare/nwperlsys.h
+++ b/NetWare/nwperlsys.h
@@ -780,7 +780,7 @@ PerlLIOUnlink(struct IPerlLIO* piPerl, const char *filename)
 }
 
 int
-PerlLIOUtime(struct IPerlLIO* piPerl, char *filename, struct utimbuf *times)
+PerlLIOUtime(struct IPerlLIO* piPerl, const char *filename, struct utimbuf *times)
 {
     return nw_utime(filename, times);
 }

diff --git a/iperlsys.h b/iperlsys.h
index 8380c5b..bcce719 100644 (file)
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -632,7 +632,7 @@ typedef int         (*LPLIONameStat)(struct IPerlLIO*, const char*,
 typedef char*          (*LPLIOTmpnam)(struct IPerlLIO*, char*);
 typedef int            (*LPLIOUmask)(struct IPerlLIO*, int);
 typedef int            (*LPLIOUnlink)(struct IPerlLIO*, const char*);
-typedef int            (*LPLIOUtime)(struct IPerlLIO*, char*, struct utimbuf*);
+typedef int            (*LPLIOUtime)(struct IPerlLIO*, const char*, struct utimbuf*);
 typedef int            (*LPLIOWrite)(struct IPerlLIO*, int, const void*,
                            unsigned int);
 

diff --git a/win32/perlhost.h b/win32/perlhost.h
index c8a0406..24ed2b7 100644 (file)
--- a/win32/perlhost.h
+++ b/win32/perlhost.h
@@ -1065,7 +1065,7 @@ PerlLIOUnlink(struct IPerlLIO* piPerl, const char *filename)
 }
 
 int
-PerlLIOUtime(struct IPerlLIO* piPerl, char *filename, struct utimbuf *times)
+PerlLIOUtime(struct IPerlLIO* piPerl, const char *filename, struct utimbuf *times)
 {
     return win32_utime(filename, times);
 }

diff --git a/wince/perlhost.h b/wince/perlhost.h
index dae5a86..bcf2b4f 100644 (file)
--- a/wince/perlhost.h
+++ b/wince/perlhost.h
@@ -1073,7 +1073,7 @@ PerlLIOUnlink(struct IPerlLIO* piPerl, const char *filename)
 }
 
 int
-PerlLIOUtime(struct IPerlLIO* piPerl, char *filename, struct utimbuf *times)
+PerlLIOUtime(struct IPerlLIO* piPerl, const char *filename, struct utimbuf *times)
 {
     return win32_utime(filename, times);
 }