This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Improve prefix removal from PPF translations.
authorCraig A. Berry <craigberry@mac.com>
Mon, 25 Nov 2013 00:40:32 +0000 (18:40 -0600)
committerCraig A. Berry <craigberry@mac.com>
Mon, 25 Nov 2013 00:40:32 +0000 (18:40 -0600)
commitbdbc68045b07fa332b168aaca9181a6c703a57bd
treebded0cfa6c526ea3aa99d2b23bf2c1fa17c5c4db
parentf420cce1268f3055e24f052a6b2c0afbbfea7624
Improve prefix removal from PPF translations.

When doing a logical name translation of a process-permanent file
(SYS$INPUT, SYS$OUTPUT, SYS$ERROR, or SYS$COMMAND), we need to
remove the special 0x001b prefix from the translation string
regardless of whether we are combining a search list into a
longer equivalence string or just doing a simple, index-free
lookup.

Since we now have two places needing the same logic, move that
logic into a static inline function.
vms/vms.c