This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Sync versions in Maintainers.pl for Safe and ExtUtils-ParseXS
[perl5.git] / dosish.h
index 0981137..fe8b16b 100644 (file)
--- a/dosish.h
+++ b/dosish.h
 #  if (DJGPP==2 && DJGPP_MINOR < 2)
 #    define NO_LOCALECONV_MON_THOUSANDS_SEP
 #  endif
-#  define PERL_FS_VER_FMT      "%d_%d_%d"
+#  ifndef PERL_CORE
+#    define PERL_FS_VER_FMT    "%d_%d_%d"
+#  endif
+#  define PERL_FS_VERSION      STRINGIFY(PERL_REVISION) "_" \
+                               STRINGIFY(PERL_VERSION) "_" \
+                               STRINGIFY(PERL_SUBVERSION)
 #else  /* DJGPP */
 #  ifdef WIN32
 #    define PERL_SYS_INIT_BODY(c,v)                                    \
  *     information.
  */
 #if defined(WIN64) || defined(USE_LARGE_FILES)
-# if defined(__BORLANDC__) /* buk */
-#  include <sys\stat.h>
-#  define Stat_t struct stati64
-# else
 #define Stat_t struct _stati64
-# endif
 #else
 #if defined(UNDER_CE)
 #define Stat_t struct xcestat