(perl #134221) support append mode for open .. undef

[perl5.git] / hints / dos_djgpp.sh

diff --git a/hints/dos_djgpp.sh b/hints/dos_djgpp.sh
index d50bca4..8f5fa33 100644 (file)
--- a/hints/dos_djgpp.sh
+++ b/hints/dos_djgpp.sh
@@ -40,11 +40,19 @@ startperl='#!perl'
 
 case "X$optimize" in
   X)
-       optimize="-O2 -malign-loops=2 -malign-jumps=2 -malign-functions=2"
+       case `gcc -v 2>&1|grep "gcc version"` in
+       "gcc version 1."*|"gcc version 2."*)
+         optimize="-O2 -malign-loops=2 -malign-jumps=2 -malign-functions=2" ;;
+       *)
+         optimize="-O2 -falign-loops=2 -falign-jumps=2 -falign-functions=2" ;;
+       esac
+       ldflags='-s'
+       ;;
+  X*)
+       ldflags=' '
        ;;
 esac
 ccflags="$ccflags -DPERL_EXTERNAL_GLOB"
-ldflags='-s'
 usemymalloc='n'
 timetype='time_t'
 
@@ -68,3 +76,6 @@ $define|true|[yY]*)
        ;;
 esac
 EOCBU
+
+useperlio='undef'
+uselargefiles='undef'