Switch from using 'nacl_main' to 'main' entry point

ports/perl/nacl.patch

 diff --git a/Makefile.micro b/Makefile.micro
 old mode 100644
 new mode 100755
 --- a/Makefile.micro
 +++ b/Makefile.micro
 @@ -1,11 +1,14 @@
  LD = $(CC)
  CCFLAGS = -c
 +BUILD_CCFLAGS = -c
  DEFINES = -DPERL_CORE -DPERL_MICRO -DSTANDARD_C -DPERL_USE_SAFE_PUTENV \
@@ skipping 32 matching lines @@
  ugenerate_uudmap$(_O): generate_uudmap.c
 -       $(CC) $(CCFLAGS) -o $@ $(CFLAGS) generate_uudmap.c
 +       $(BUILD_CC) $(BUILD_CCFLAGS) -o $@ $(CFLAGS) generate_uudmap.c
  
  ugenerate_uudmap$(_X): ugenerate_uudmap$(_O)
 -       $(LD) -o ugenerate_uudmap $(LDFLAGS) ugenerate_uudmap$(_O) $(LIBS)
 +       $(BUILD_LD) -o ugenerate_uudmap $(BUILD_LDFLAGS) ugenerate_uudmap$(_O) $(BUILD_LIBS)
  
  microtest: microperl
         - cd t && (rm -f perl; ln -s ../microperl perl) \
-diff --git a/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm b/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm
-old mode 100644
-new mode 100755
---- a/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm
-+++ b/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm
-@@ -89,11 +89,19 @@ struct perl_vars* Perl_GetVarsPrivate(void) { return my_plvarsp; }
- #ifdef NO_ENV_ARRAY_IN_MAIN
- extern char **environ;
- int
-+#ifdef __native_client__
-+nacl_main(int argc, char **argv)
-+#else
- main(int argc, char **argv)
-+#endif
- #else
- int
-+#ifdef __native_client__
-+nacl_main(int argc, char **argv, char **env)
-+#else
- main(int argc, char **argv, char **env)
- #endif
-+#endif
- {
-     int exitstatus, i;
- #ifdef PERL_GLOBAL_STRUCT
 diff --git a/installperl b/installperl
 --- a/installperl
 +++ b/installperl
 @@ -383,9 +383,9 @@ foreach my $file (@corefiles) {
      if (copy_if_diff($file,"$installarchlib/CORE/$file")) {
         if ($file =~ /\.(\Q$so\E|\Q$dlext\E)$/) {
             strip("-S", "$installarchlib/CORE/$file") if $^O eq 'darwin';
 -           chmod(0555, "$installarchlib/CORE/$file");
 +           chmod(0755, "$installarchlib/CORE/$file");
         } else {
 -           chmod(0444, "$installarchlib/CORE/$file");
 +           chmod(0644, "$installarchlib/CORE/$file");
         }
      }
  }
 @@ -753,7 +753,7 @@ sub installlib {
              if (copy_if_diff($_, "$installlib/$name")) {
                  strip("-S", "$installlib/$name")
                      if $^O eq 'darwin' and /\.(?:so|$dlext|a)$/;
 -                chmod(/\.(so|$dlext)$/ ? 0555 : 0444, "$installlib/$name");
 +                chmod(/\.(so|$dlext)$/ ? 0755 : 0644, "$installlib/$name");
              }
         }
      }
-diff --git a/lib/ExtUtils/t/Embed.t b/lib/ExtUtils/t/Embed.t
-old mode 100644
-new mode 100755
---- a/lib/ExtUtils/t/Embed.t
-+++ b/lib/ExtUtils/t/Embed.t
-@@ -168,11 +168,20 @@ struct perl_vars* Perl_GetVarsPrivate(void) { return my_plvarsp; }
- #endif
- 
- #ifdef NO_ENV_ARRAY_IN_MAIN
-+#ifdef __native_client__
-+int nacl_main(int argc, char **argv) {
-+    char **env;
-+#else
- int main(int argc, char **argv) {
-     char **env;
-+#endif
-+#else
-+#ifdef __native_client__
-+int nacl_main(int argc, char **argv, char **env) {
- #else
- int main(int argc, char **argv, char **env) {
- #endif
-+#endif
-     PerlInterpreter *my_perl;
- #ifdef PERL_GLOBAL_STRUCT
-     struct perl_vars *my_vars = init_global_struct();
 diff --git a/perl.h b/perl.h
 old mode 100644
 new mode 100755
 --- a/perl.h
 +++ b/perl.h
 @@ -3561,7 +3561,7 @@ my_swap16(const U16 x) {
  #endif
  
  #ifndef __cplusplus
 -#if !(defined(WIN32) || defined(UNDER_CE) || defined(SYMBIAN))
@@ skipping 274 matching lines @@
 +     *                    other situations.
 +     */
 +    # if defined(__native_client__)
 +    pid = vfork();
 +    # else
      pid = fork();
 +    # endif
  #endif
      return pid;
  #else
-diff --git a/x2p/a2py.c b/x2p/a2py.c
-old mode 100644
-new mode 100755
---- a/x2p/a2py.c
-+++ b/x2p/a2py.c
-@@ -57,7 +57,11 @@ usage()
- #endif
- 
- int
-+#ifdef __native_client__
-+nacl_main(int argc, const char **argv)
-+#else
- main(int argc, const char **argv)
-+#endif
- {
-     STR *str;
-     int i;