From 17d9d1f083f91c980b13920c53e48ffc00bf7c63 Mon Sep 17 00:00:00 2001
From: Alexandr Savca <alexandr.savca89@gmail.com>
Date: Wed, 24 Jul 2019 12:13:05 +0300
Subject: vms/vms.c: fix unused relational comparison result

Closes [perl #134307].
---
 vms/vms.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'vms')

diff --git a/vms/vms.c b/vms/vms.c
index 9dcefa3e13..050af991f5 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -11800,7 +11800,7 @@ encode_dev (pTHX_ const char *dev)
   enc = 0;
   f = 1;
   i = 0;
-  for (q = dev + strlen(dev); q--; q >= dev) {
+  for (q = dev + strlen(dev); q >= dev; q--) {
     if (*q == ':')
 	break;
     if (isdigit (*q))
-- 
cgit v1.2.1