summaryrefslogtreecommitdiff
path: root/vms
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2015-02-19 21:11:50 -0600
committerCraig A. Berry <craigberry@mac.com>2015-02-19 21:11:50 -0600
commit7a29712e6da58bc07c9fb1b387dd817174163d66 (patch)
tree890d6a4c862617290e3f6b96687167e638abe073 /vms
parentce12d4b724e7322226a0165d33da7dcb1c8d333a (diff)
downloadperl-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.c26
1 files changed, 0 insertions, 26 deletions
diff --git a/vms/vms.c b/vms/vms.c
index 032387bdfa..03644150dd 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -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