diff options
| author | Alexandr Savca <alexandr.savca89@gmail.com> | 2019-07-24 12:13:05 +0300 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2019-07-25 12:39:25 -0500 |
| commit | 17d9d1f083f91c980b13920c53e48ffc00bf7c63 (patch) | |
| tree | e6c407f3d744832eae36a9cb9cd0e61debec53e2 /vms/vms.c | |
| parent | a8dbc3a4eb2786c64e9f0341713dfd72f75aba12 (diff) | |
| download | perl-17d9d1f083f91c980b13920c53e48ffc00bf7c63.tar.gz | |
vms/vms.c: fix unused relational comparison result
Closes [perl #134307].
Diffstat (limited to 'vms/vms.c')
| -rw-r--r-- | vms/vms.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)) |