From: Charles Bailey <bailey@newman.upenn.edu>
Date: Thu, 2 Mar 2000 04:05:47 +0000 (+0000)
Subject: FIx no-op in vms.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1a6334fb5c9c869fe86aa35f1aba57f28d03da05;p=p5sagit%2Fp5-mst-13.2.git

FIx no-op in vms.c

p4raw-id: //depot/vmsperl@5427
---

diff --git a/vms/vms.c b/vms/vms.c
index ba4fada..16c226a 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -4266,7 +4266,7 @@ int my_utime(char *file, struct utimbuf *utimes)
     /* If input was UTC; convert to local for sys svc */
     if (!VMSISH_TIME) unixtime = _toloc(unixtime);
 #   endif
-    unixtime >> 1;  secscale << 1;
+    unixtime >>= 1;  secscale <<= 1;
     retsts = lib$emul(&secscale, &unixtime, &lowbit, bintime);
     if (!(retsts & 1)) {
       set_errno(EVMSERR);