From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 19 Jul 2011 14:31:23 +0000 (+0200)
Subject: In makedef.pl, simplify handling the 7 symbols wanted on Win32 but not WinCE.
X-Git-Tag: accepted/trunk/20130322.191538~3148^2~109^2~41
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5581753c12db7ac3d477b2911792472def374afc;p=platform%2Fupstream%2Fperl.git

In makedef.pl, simplify handling the 7 symbols wanted on Win32 but not WinCE.

18f68570297a0260 added WinCE, but did so by changing a block that adds
symbols for Win32 to add them for both Win32 & WinCE, and simultaneously
adding 7 of those symbols to the WinCE specific skip list.

Much simpler is to split the list of symbols to add into one for Win32 only,
and one for Win32 & WinCE, and removing the skip list.
---

diff --git a/makedef.pl b/makedef.pl
index 1cb9693..ca224ba 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -295,13 +295,6 @@ if ($PLATFORM eq 'wince') {
 		     PL_lastgotoprobe
 		     PL_modcount
 		     PL_timesbuf
-		     setgid
-		     setuid
-		     win32_free_childdir
-		     win32_free_childenv
-		     win32_get_childdir
-		     win32_get_childenv
-		     win32_spawnvp
 		     main
 		     )];
 }
@@ -1165,10 +1158,20 @@ while (<DATA>) {
     try_symbol($_);
 }
 
+if ($PLATFORM eq 'win32') {
+    try_symbol($_) foreach qw(
+				 setgid
+				 setuid
+				 win32_free_childdir
+				 win32_free_childenv
+				 win32_get_childdir
+				 win32_get_childenv
+				 win32_spawnvp
+			    );
+}
+
 if ($PLATFORM =~ /^win(?:32|ce)$/) {
     foreach my $symbol (qw(
-			    setuid
-			    setgid
 			    Perl_init_os_extras
 			    Perl_thread_create
 			    Perl_win32_init
@@ -1196,7 +1199,6 @@ if ($PLATFORM =~ /^win(?:32|ce)$/) {
 			    win32_isatty
 			    win32_read
 			    win32_write
-			    win32_spawnvp
 			    win32_mkdir
 			    win32_rmdir
 			    win32_chdir
@@ -1282,11 +1284,7 @@ if ($PLATFORM =~ /^win(?:32|ce)$/) {
 			    win32_getpid
 			    win32_crypt
 			    win32_dynaload
-			    win32_get_childenv
-			    win32_free_childenv
 			    win32_clearenv
-			    win32_get_childdir
-			    win32_free_childdir
 			    win32_stdin
 			    win32_stdout
 			    win32_stderr