$ THEN
$ dflt = dflt - "Socket" ! optional on VMS
$ ENDIF
-$ IF .NOT. use_ithreads THEN dflt = dflt - "threads/shared"
-$ IF .NOT. use_ithreads THEN dflt = dflt - "threads"
$ IF .NOT. use_threads THEN dflt = dflt - "Thread"
$ dflt = F$EDIT(dflt,"TRIM,COMPRESS")
$!
$ d_isnan = "define"
$ d_isnanl = "define"
$ d_modfl = "define"
+$ d_modflproto = "define"
$ ELSE
$ d_PRId64 = "undef"
$ d_PRIXU64 = "undef"
$ d_isnan = "undef"
$ d_isnanl = "undef"
$ d_modfl = "undef"
+$ d_modflproto = "undef"
$ ENDIF
$!
$! Now some that we build up
$ WC "d_mktime='" + d_mktime + "'"
$ WC "d_mmap='" + d_mmap + "'"
$ WC "d_modfl='" + d_modfl + "'"
+$ WC "d_modflproto='" + d_modflproto + "'"
$ WC "d_modfl_pow32_bug='undef'"
$ WC "d_mprotect='" + d_mprotect + "'"
$ WC "d_msg='undef'"
$ WC "d_unordered='undef'"
$ WC "d_usleep='" + d_usleep + "'"
$ WC "d_usleepproto='" + d_usleep + "'"
+$ WC "d_nanosleep='undef'"
$ WC "d_ustat='undef'"
$ WC "d_vendorarch='undef'"
$ WC "d_vendorlib='undef'"
$ open/read/error=extra_close EXTRA extra.pods
$extra_loop:
$ read/error=extra_close/END_OF_FILE=extra_close EXTRA file
-$ file_type = f$parse(file,,,"TYPE",) - "."
+$ file_type = f$edit(f$parse(file,,,"TYPE",),"LOWERCASE") - "."
$ if file_type .nes. "VMS" .and. file_type .nes. "vms"
$ then
$ pod_file = "[.pod]perl''file_type'.pod"
$ pod_file_rdt = f$cvtime(f$file_attributes(pod_file,"RDT"))
$ if file_rdt .GTS. pod_file_rdt then do_copy := true
$ endif
-$ if do_copy then copy/log/noconfirm 'file' 'pod_file'
+$ ! wacky method to preserve case on ODS-5 even when parse style is traditional
+$ if do_copy then mcr sys$disk:[]miniperl.exe -e "exit 0+$^E unless File::Copy::rmscopy(q{''file'}, q{''pod_file'});"
$ endif
$ endif
$ goto extra_loop