Consistently use __sun to identify SunOS
authorBrian Fraser <fraserbn@gmail.com>
Wed, 11 Sep 2013 19:57:57 +0000 (16:57 -0300)
committerBrian Fraser <fraserbn@gmail.com>
Tue, 24 Sep 2013 00:21:00 +0000 (21:21 -0300)
The core mostly used __sun already, but '__sun__' and 'sun' were
also present.

perl.h
perlio.c

index 163178c..afc2bc8 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -4028,7 +4028,7 @@ EXT char *** environ_pointer;
    /* VMS and some other platforms don't use the environ array */
 #  ifdef USE_ENVIRON_ARRAY
 #    if !defined(DONT_DECLARE_STD) || \
-        (defined(__svr4__) && defined(__GNUC__) && defined(sun)) || \
+        (defined(__svr4__) && defined(__GNUC__) && defined(__sun)) || \
         defined(__sgi)
 extern char ** environ;        /* environment variables supplied via exec */
 #    endif
index 4693366..2591f89 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -3169,7 +3169,7 @@ PerlIOStdio_invalidate_fileno(pTHX_ FILE *f)
      */        
     f->_fileno = -1;
     return 1;
-#  elif defined(__sun__)
+#  elif defined(__sun)
     PERL_UNUSED_ARG(f);
     return 0;
 #  elif defined(__hpux)