diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2007-06-14 18:32:49 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-15 11:17:50 +0000 |
| commit | cef6ea9dde586d23f429802e75d22875450d6b68 (patch) | |
| tree | 6108efb40b0e9fd59200d485887f63a2383dbcbb /util.c | |
| parent | d05d9be5bb960a2dda35f9c10256ae0e8caaede8 (diff) | |
| download | perl-cef6ea9dde586d23f429802e75d22875450d6b68.tar.gz | |
miscellanea
Message-ID: <4671FA51.4070001@iki.fi>
p4raw-id: //depot/perl@31388
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -1909,7 +1909,10 @@ Perl_my_htonl(pTHX_ long l) char c[sizeof(long)]; } u; -#if BYTEORDER == 0x1234 +#if BYTEORDER == 0x1234 || BYTEORDER == 0x12345678 +#if BYTEORDER == 0x12345678 + u.result = 0; +#endif u.c[0] = (l >> 24) & 255; u.c[1] = (l >> 16) & 255; u.c[2] = (l >> 8) & 255; @@ -2508,7 +2511,7 @@ Perl_my_popen(pTHX_ const char *cmd, const char *mode) #if defined(atarist) || defined(EPOC) FILE *popen(); PerlIO * -Perl_my_popen((pTHX_ const char *cmd, const char *mode) +Perl_my_popen(pTHX_ const char *cmd, const char *mode) { PERL_FLUSHALL_FOR_CHILD; /* Call system's popen() to get a FILE *, then import it. @@ -2521,7 +2524,7 @@ Perl_my_popen((pTHX_ const char *cmd, const char *mode) #if defined(DJGPP) FILE *djgpp_popen(); PerlIO * -Perl_my_popen((pTHX_ const char *cmd, const char *mode) +Perl_my_popen(pTHX_ const char *cmd, const char *mode) { PERL_FLUSHALL_FOR_CHILD; /* Call system's popen() to get a FILE *, then import it. |