X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=cflags.SH;h=a5d71b928ca9146723c7a4309a145cbcce3ec251;hb=338584c0b1c948a967b5e2ecbb69c512410589e4;hp=132f466a9279a66cce5ec4452d6cf3125e92649e;hpb=46807d8e809cc127621bf85d9e9cea2f838eb477;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/cflags.SH b/cflags.SH
index 132f466..a5d71b9 100755
--- a/cflags.SH
+++ b/cflags.SH
@@ -213,6 +213,8 @@ warn="$warn"
 stdflags="$stdflags"
 # Extra extra.
 extra="$extra"
+# what do executables look like?
+_exe="$_exe"
 
 !GROK!THIS!
 
@@ -296,14 +298,7 @@ for file do
     op) ;;
     opmini) ;;
     pad) ;;
-    perl) 
-        if [ -f .patchnum -a -n "$(awk 'BEGIN{ORS=""} /describe:/ {print $1}' .patchnum)" ] ; then
-                ccflags="-DPERL_PATCHNUM=$(awk 'BEGIN{ORS=""} /describe:/ {print $2}' .patchnum) $ccflags"
-        fi
-	if [ -f .patchnum -a -n "$(awk 'BEGIN{ORS=""} /status:/ {print $2}' .patchnum)" ] ; then
-                ccflags="-DPERL_GIT_UNCOMMITTED_CHANGES=$(awk 'BEGIN{ORS=""} /status:/ {print $2}' .patchnum) $ccflags"
-	fi
-        ;;
+    perl) ;;
     perlapi) ;;
     perlmain) ;;
     perly) ;;
@@ -324,7 +319,6 @@ for file do
     usersub) ;;
     utf8) ;;
     util) ;;
-    xsutils) ;;
     *) ;;
     esac