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.

1 files changed, 1 insertions, 1 deletions

diff --git a/vms/vms.c b/vms/vms.c
index 75e4ccefe7..cca6c48aff 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -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;