This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make extended filename syntax the default on VMS.
[perl5.git] / vms / vms.c
index 9a0ab4b..44d72ff 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -14014,7 +14014,6 @@ vmsperl_set_features(void)
     status = simple_trnlnm("GNV$UNIX_SHELL", val_str, sizeof(val_str));
     if ($VMS_STATUS_SUCCESS(status)) {
         gnv_unix_shell = 1;
-        set_feature_default("DECC$EFS_CHARSET", 1);
         set_feature_default("DECC$FILENAME_UNIX_NO_VERSION", 1);
         set_feature_default("DECC$FILENAME_UNIX_REPORT", 1);
         set_feature_default("DECC$READDIR_DROPDOTNOTYPE", 1);
@@ -14025,6 +14024,7 @@ vmsperl_set_features(void)
     /* Some reasonable defaults that are not CRTL defaults */
     set_feature_default("DECC$EFS_CASE_PRESERVE", 1);
     set_feature_default("DECC$ARGV_PARSE_STYLE", 1);     /* Requires extended parse. */
+    set_feature_default("DECC$EFS_CHARSET", 1);
 #endif
 
     /* hacks to see if known bugs are still present for testing */