perl check for macosx

git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@16445 b3059339-0415-0410-9bf9-f77b7e298cf2

1 files changed, 43 insertions, 3 deletions

diff --git a/configure b/configure
index 4a12331d3e..b9b984fa6b 100755
--- a/configure
+++ b/configure
@@ -45,12 +45,23 @@ cc_check() {
   return "$TMP"
 }
 
+perl_check() {
+  echo >> "$TMPLOG"
+  cat "$TMPP" >> "$TMPLOG"
+  echo >> "$TMPLOG"
+  echo "perl $TMPP" >> "$TMPLOG"
+  perl "$TMPP" >> "$TMPLOG" 2>&1
+  TMP="$?"
+  echo >> "$TMPLOG"
+  return "$TMP"
+}
+
 # Display error message, flushes tempfile, exit
 die () {
   echo
   echo "Error: $@" >&2
   echo >&2
-  rm -f "$TMPO" "$TMPC" "$TMPS" "$TMPCPP"
+  rm -f "$TMPO" "$TMPC" "$TMPS" "$TMPCPP" "TMPP"
   echo "Check \"$TMPLOG\" if you do not understand why it failed."
   exit 1
 }
@@ -547,6 +558,7 @@ TMPC="$I/mplayer-conf-$RANDOM-$$.c"
 TMPCPP="$I/mplayer-conf-$RANDOM-$$.cpp"
 TMPO="$I/mplayer-conf-$RANDOM-$$.o"
 TMPS="$I/mplayer-conf-$RANDOM-$$.S"
+TMPP="$I/mplayer-conf-$RANDOM-$$.perl"
 
 # config files
 
@@ -3263,7 +3275,35 @@ echores "$_sys_sysinfo"
 
 echocheck "Mac OS X APIs"
 if test "$_macosx" = auto ; then
-    if darwin && ppc; then
+
+cat > $TMPP <<EOF
+\$/ = \0;
+
+open( PLIST, "/System/Library/CoreServices/SystemVersion.plist") || do {
+	print "Failed to open SystemVersion.plist\n";
+	exit (1);
+};
+
+\$plistData = <PLIST>;
+\$plistData =~ /<dict>(.*?)<\/dict>/gis;
+@items = split(/<key>/, \$plistData);
+
+shift @items;
+foreach \$item (@items) {
+	\$item =~ /(.*?)<\/key>.*?<string>(.*?)<\/string>/gis;
+        \$versiondata{ \$1 } = \$2;
+}
+
+close(PLIST);
+
+if( \$versiondata{"ProductName"} eq  "Mac OS X") {
+	exit(0);
+}
+
+exit(1);
+EOF
+
+	if perl_check; then 
         _macosx=yes
     else
 	_macosx=no
@@ -7958,4 +7998,4 @@ EOF
 fi
 
 # Last move:
-rm -f "$TMPO" "$TMPC" "$TMPS" "$TMPCPP"
+rm -f "$TMPO" "$TMPC" "$TMPS" "$TMPCPP" "$TMPP"