This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4: translate $^X to unix style
[perl5.git] / perl.c
diff --git a/perl.c b/perl.c
index bfce4ef..d1018f3 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1500,6 +1500,14 @@ perl_parse(pTHXx_ XSINIT_t xsinit, int argc, char **argv, char **env)
         }
     }
 #endif /* #if defined(USE_HASH_SEED) || defined(USE_HASH_SEED_EXPLICIT) */
+
+#if defined(__amigaos4__)
+    {
+        struct NameTranslationInfo nti;
+        __translate_amiga_to_unix_path_name(&argv[0],&nti); 
+    }
+#endif
+
     PL_origargc = argc;
     PL_origargv = argv;