In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/17d9d1f083f91c980b13920c53e48ffc00bf7c63?hp=a8dbc3a4eb2786c64e9f0341713dfd72f75aba12>
- Log ----------------------------------------------------------------- commit 17d9d1f083f91c980b13920c53e48ffc00bf7c63 Author: Alexandr Savca <[email protected]> Date: Wed Jul 24 12:13:05 2019 +0300 vms/vms.c: fix unused relational comparison result Closes [perl #134307]. ----------------------------------------------------------------------- Summary of changes: vms/vms.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- Perl5 Master Repository
