This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
POSIX: add new :netdb_h tag with missing EAI_* symbols
authorAaron Crane <arc@cpan.org>
Fri, 13 May 2016 11:37:17 +0000 (12:37 +0100)
committerAaron Crane <arc@cpan.org>
Mon, 16 May 2016 12:47:10 +0000 (13:47 +0100)
These symbols were not previously exported at all, despite having been added
in the 5.11 cycle.

ext/POSIX/lib/POSIX.pm
ext/POSIX/t/export.t

index 9418ba9..2e85ab3 100644 (file)
@@ -432,6 +432,11 @@ my %other_export_tags = ( # cf. exports policy below
         remainder remquo rint round scalbn signbit tgamma trunc y0 y1 yn
     )],
 
+    netdb_h => [qw(EAI_AGAIN    EAI_BADFLAGS EAI_FAIL
+                   EAI_FAMILY   EAI_MEMORY   EAI_NONAME
+                   EAI_OVERFLOW EAI_SERVICE  EAI_SOCKTYPE
+                   EAI_SYSTEM)],
+
     stdlib_h_c99 => [ @{$default_export_tags{stdlib_h}}, 'strtold' ],
 
     nan_payload => [ qw(getpayload setpayload setpayloadsig issignaling) ],
index d76de57..581af47 100644 (file)
@@ -130,6 +130,11 @@ my %expect = (
         # it is OK to add new constants, but new functions may only go in EXPORT_OK
     ],
     EXPORT_OK => [sort
+        # this stuff was added in 5.11, but not exported until 5.25
+        qw(
+            EAI_AGAIN EAI_BADFLAGS EAI_FAIL EAI_FAMILY EAI_MEMORY
+            EAI_NONAME EAI_OVERFLOW EAI_SERVICE EAI_SOCKTYPE EAI_SYSTEM
+        ),
         # this stuff was in 5.20.2
         qw(
             abs alarm atan2 chdir chmod chown close closedir cos exit