ext/Fcntl/Makefile.PL: Make S_IFMT unsigned blead
authorTony Cook <tony@develop-help.com>
Wed, 26 Nov 2014 22:50:47 +0000 (15:50 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 28 Nov 2014 19:51:46 +0000 (12:51 -0700)
See <20141126223250.GS19835@mars.tony.develop-help.com>
S_IFMT on os390 has the upper bit set but Perl is expecting an unsigned,
so force it to be so.

ext/Fcntl/Makefile.PL

index ccd90c9..ec17548 100644 (file)
@@ -37,7 +37,7 @@ my @names = (qw(
             {name=>"SEEK_SET", default=>["IV", "0"]},
             {name=>"SEEK_CUR", default=>["IV", "1"]},
             {name=>"SEEK_END", default=>["IV", "2"]},
-            {name=>"_S_IFMT", macro=>"S_IFMT", value=>"S_IFMT"});
+            {name=>"_S_IFMT", macro=>"S_IFMT", value=>"S_IFMT", type=>"UV"});
 WriteConstants(
     PROXYSUBS => {autoload => 1},
     NAME => 'Fcntl',