diff options
author | Craig A. Berry <craigberry@mac.com> | 2015-02-19 21:11:50 -0600 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2015-02-19 21:11:50 -0600 |
commit | 7a29712e6da58bc07c9fb1b387dd817174163d66 (patch) | |
tree | 890d6a4c862617290e3f6b96687167e638abe073 /vms | |
parent | ce12d4b724e7322226a0165d33da7dcb1c8d333a (diff) | |
download | perl-7a29712e6da58bc07c9fb1b387dd817174163d66.tar.gz |
Remove another dead function in vms/vms.c.
No use for the utf8_to_vtf7 function has appeared in the first
nine years of its existence so it's not earning its keep.
Diffstat (limited to 'vms')
-rw-r--r-- | vms/vms.c | 26 |
1 files changed, 0 insertions, 26 deletions
@@ -8283,32 +8283,6 @@ posix_to_vmsspec_hardway(char *vmspath, int vmspath_len, const char *unixpath, } #endif - /* Eventual routine to convert a UTF-8 specification to VTF-7. */ -static char * -utf8_to_vtf7(char * rslt, const char * path, int *utf8_fl) -{ - char * result; - int utf8_flag; - - /* If a UTF8 flag is being passed, honor it */ - utf8_flag = 0; - if (utf8_fl != NULL) { - utf8_flag = *utf8_fl; - *utf8_fl = 0; - } - - if (utf8_flag) { - /* If there is a possibility of UTF8, then if any UTF8 characters - are present, then they must be converted to VTF-7 - */ - result = strcpy(rslt, path); /* FIX-ME */ - } - else - result = strcpy(rslt, path); - - return result; -} - /* A convenience macro for copying dots in filenames and escaping * them when they haven't already been escaped, with guards to * avoid checking before the start of the buffer or advancing |