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 (file)
--- 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);