diff options
author | Craig A. Berry <craigberry@mac.com> | 2014-09-28 21:04:54 -0500 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2014-09-28 21:04:54 -0500 |
commit | 676447f97ffb271ba1d701a022cd865c74881286 (patch) | |
tree | 2645a2b2bda78fce8816b8174d12070f631e577b /vms | |
parent | 13203cefecd569a75ed961c9e4d3bf203d241f08 (diff) | |
download | perl-676447f97ffb271ba1d701a022cd865c74881286.tar.gz |
Fix start-of-string error in tovmsspec.
When translating a filespec starting with an extended character,
say C<+foo>, from Unix to VMS format, we were inadvertently
skipping over the first character and thus not translating it to
C<^+foo> with the caret escape prepended to the plus sign as we
should have been.
This fixes a fairly new test failure in ExtUtils::Manifest where
a filename starts with a single quote.
Diffstat (limited to 'vms')
-rw-r--r-- | vms/vms.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -8695,7 +8695,7 @@ static char *int_tovmsspec case '|': case '<': case '>': - if (cp2 > path && *(cp2-1) != '^') /* not previously escaped */ + if (cp2 >= path && *(cp2-1) != '^') /* not previously escaped */ *(cp1++) = '^'; *(cp1++) = *(cp2++); break; |