This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix start-of-string error in tovmsspec.
authorCraig A. Berry <craigberry@mac.com>
Mon, 29 Sep 2014 02:04:54 +0000 (21:04 -0500)
committerCraig A. Berry <craigberry@mac.com>
Mon, 29 Sep 2014 02:04:54 +0000 (21:04 -0500)
commit676447f97ffb271ba1d701a022cd865c74881286
tree2645a2b2bda78fce8816b8174d12070f631e577b
parent13203cefecd569a75ed961c9e4d3bf203d241f08
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.
ext/VMS-Filespec/t/filespec.t
vms/vms.c