This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
integrate change#2904 from maint-5.005
[perl5.git]
/
perl.h
diff --git
a/perl.h
b/perl.h
index
94fd478
..
af64d64
100644
(file)
--- a/
perl.h
+++ b/
perl.h
@@
-1613,7
+1613,7
@@
typedef I32 CHECKPOINT;
# define HAS_VTOHS
# define HAS_HTOVL
# define HAS_HTOVS
-# if BYTEORDER == 0x4321
+# if BYTEORDER == 0x4321
|| BYTEORDER == 0x87654321
# define vtohl(x) ((((x)&0xFF)<<24) \
+(((x)>>24)&0xFF) \
+(((x)&0x0000FF00)<<8) \