From: Craig A. Berry <craigberry@mac.com>
Date: Wed, 14 Dec 2005 22:03:28 +0000 (+0000)
Subject: Using the system's utime() requires a patch to vms/vmsish.h
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e061adcc69dd69844b385b8dfdd652ca0783660;p=p5sagit%2Fp5-mst-13.2.git

Using the system's utime() requires a patch to vms/vmsish.h
that has not been submitted yet.

p4raw-id: //depot/perl@26358
---

diff --git a/vms/vms.c b/vms/vms.c
index 0d5a966..a914506 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -9260,12 +9260,6 @@ Perl_my_localtime(pTHX_ const time_t *timep)
 static const long int utime_baseadjust[2] = { 0x4beb4000, 0x7c9567 };
 
 /*{{{int my_utime(const char *path, const struct utimbuf *utimes)*/
-#if __CRTL_VER >= 70300000 && !defined(__VAX)
-int Perl_my_utime(pTHX_ const char *file, const struct utimbuf *utimes)
-{
-    return utime(file, utimes);
-}
-#else
 int Perl_my_utime(pTHX_ const char *file, const struct utimbuf *utimes)
 {
   register int i;
@@ -9418,7 +9412,6 @@ int Perl_my_utime(pTHX_ const char *file, const struct utimbuf *utimes)
 
   return 0;
 }  /* end of my_utime() */
-#endif
 /*}}}*/
 
 /*