r44412 - in /branches/upstream/libsocket-getaddrinfo-perl/current: Build.PL Changes MANIFEST META.yml Makefile.PL README lib/Socket/GetAddrInfo.pm t/04import-warn.t t/99pod.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Sun Sep 20 17:05:37 UTC 2009 

Author: jawnsy-guest
Date: Sun Sep 20 17:05:31 2009
New Revision: 44412

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=44412
Log:
[svn-upgrade] Integrating new upstream version, libsocket-getaddrinfo-perl (0.13)

Added:
    branches/upstream/libsocket-getaddrinfo-perl/current/t/04import-warn.t
    branches/upstream/libsocket-getaddrinfo-perl/current/t/99pod.t
Modified:
    branches/upstream/libsocket-getaddrinfo-perl/current/Build.PL
    branches/upstream/libsocket-getaddrinfo-perl/current/Changes
    branches/upstream/libsocket-getaddrinfo-perl/current/MANIFEST
    branches/upstream/libsocket-getaddrinfo-perl/current/META.yml
    branches/upstream/libsocket-getaddrinfo-perl/current/Makefile.PL
    branches/upstream/libsocket-getaddrinfo-perl/current/README
    branches/upstream/libsocket-getaddrinfo-perl/current/lib/Socket/GetAddrInfo.pm

Modified: branches/upstream/libsocket-getaddrinfo-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsocket-getaddrinfo-perl/current/Build.PL?rev=44412&op=diff
==============================================================================
--- branches/upstream/libsocket-getaddrinfo-perl/current/Build.PL (original)
+++ branches/upstream/libsocket-getaddrinfo-perl/current/Build.PL Sun Sep 20 17:05:31 2009
@@ -127,6 +127,7 @@
                  'Scalar::Util' => 0,
                  'Test::More' => 0,
                  'Test::Exception' => 0,
+                 'Test::Warn' => 0,
                },
    license => 'perl',
    create_makefile_pl => 'small',

Modified: branches/upstream/libsocket-getaddrinfo-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsocket-getaddrinfo-perl/current/Changes?rev=44412&op=diff
==============================================================================
--- branches/upstream/libsocket-getaddrinfo-perl/current/Changes (original)
+++ branches/upstream/libsocket-getaddrinfo-perl/current/Changes Sun Sep 20 17:05:31 2009
@@ -1,4 +1,9 @@
 Revision history for Socket-GetAddrInfo
+
+0.13    CHANGES:
+         * Don't warn if only importing symbolic constants; test this
+         * Added Test::Pod testing
+         * Docs neatening in L<> links
 
 0.12    CHANGES:
          * Added 'use warnings'

Modified: branches/upstream/libsocket-getaddrinfo-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsocket-getaddrinfo-perl/current/MANIFEST?rev=44412&op=diff
==============================================================================
--- branches/upstream/libsocket-getaddrinfo-perl/current/MANIFEST (original)
+++ branches/upstream/libsocket-getaddrinfo-perl/current/MANIFEST Sun Sep 20 17:05:31 2009
@@ -12,3 +12,5 @@
 t/01getaddrinfo.t
 t/02getnameinfo.t
 t/03Socket6api.t
+t/04import-warn.t
+t/99pod.t

Modified: branches/upstream/libsocket-getaddrinfo-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsocket-getaddrinfo-perl/current/META.yml?rev=44412&op=diff
==============================================================================
--- branches/upstream/libsocket-getaddrinfo-perl/current/META.yml (original)
+++ branches/upstream/libsocket-getaddrinfo-perl/current/META.yml Sun Sep 20 17:05:31 2009
@@ -1,6 +1,6 @@
 ---
 name: Socket-GetAddrInfo
-version: 0.12
+version: 0.13
 author:
   - 'Paul Evans <leonerd at leonerd.org.uk>'
 abstract: |-
@@ -9,8 +9,6 @@
 license: perl
 resources:
   license: http://dev.perl.org/licenses/
-configure_requires:
-  ExtUtils::CBuilder: 0
 build_requires:
   ExtUtils::CBuilder: 0
   Module::Build: 0
@@ -18,11 +16,15 @@
   Scalar::Util: 0
   Test::Exception: 0
   Test::More: 0
+  Test::Warn: 0
+configure_requires:
+  ExtUtils::CBuilder: 0
+  Module::Build: 0.35
 provides:
   Socket::GetAddrInfo:
     file: lib/Socket/GetAddrInfo.pm
-    version: 0.12
-generated_by: Module::Build version 0.33
+    version: 0.13
+generated_by: Module::Build version 0.35
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
   version: 1.4

Modified: branches/upstream/libsocket-getaddrinfo-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsocket-getaddrinfo-perl/current/Makefile.PL?rev=44412&op=diff
==============================================================================
--- branches/upstream/libsocket-getaddrinfo-perl/current/Makefile.PL (original)
+++ branches/upstream/libsocket-getaddrinfo-perl/current/Makefile.PL Sun Sep 20 17:05:31 2009
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.33
+# Note: this file was auto-generated by Module::Build::Compat version 0.35
     use Module::Build::Compat 0.02;
     
     Module::Build::Compat->run_build_pl(args => \@ARGV);

Modified: branches/upstream/libsocket-getaddrinfo-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsocket-getaddrinfo-perl/current/README?rev=44412&op=diff
==============================================================================
--- branches/upstream/libsocket-getaddrinfo-perl/current/README (original)
+++ branches/upstream/libsocket-getaddrinfo-perl/current/README Sun Sep 20 17:05:31 2009
@@ -191,7 +191,8 @@
         fix, as "Socket6" is known to work there. Patches welcomed. :)
 
 SEE ALSO
-    *   RFC 2553 - Basic Socket Interface Extensions for IPv6
+    *   <http://tools.ietf.org/html/rfc2553> - Basic Socket Interface
+        Extensions for IPv6
 
 AUTHOR
     Paul Evans <leonerd at leonerd.org.uk>

Modified: branches/upstream/libsocket-getaddrinfo-perl/current/lib/Socket/GetAddrInfo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsocket-getaddrinfo-perl/current/lib/Socket/GetAddrInfo.pm?rev=44412&op=diff
==============================================================================
--- branches/upstream/libsocket-getaddrinfo-perl/current/lib/Socket/GetAddrInfo.pm (original)
+++ branches/upstream/libsocket-getaddrinfo-perl/current/lib/Socket/GetAddrInfo.pm Sun Sep 20 17:05:31 2009
@@ -18,7 +18,7 @@
 
 BEGIN {
    our @ISA = qw( Exporter );
-   our $VERSION = "0.12";
+   our $VERSION = "0.13";
 
    our @EXPORT = qw(
       getaddrinfo
@@ -140,21 +140,22 @@
    my $class = shift;
    my %symbols = map { $_ => 1 } @_;
 
-   if( delete $symbols{':newapi'} ) {
-      # Caller wants the new API functions - do nothing
-   }
-   else {
-      # Caller wants the Socket6 backward compatible API functions instead
-      delete $symbols{':Socket6api'} or carp <<EOF;
+   my $api;
+   $api = "new"     if delete $symbols{':newapi'};
+   $api = "Socket6" if delete $symbols{':Socket6api'};
+
+   if( $symbols{getaddrinfo} or $symbols{getnameinfo} ) {
+      defined $api or carp <<EOF;
 Importing Socket::GetAddrInfo without ':newapi' or ':Socket6api' tag.
 Defaults to :Socket6api currently but default will change in a future version.
 EOF
-
-      my $callerpkg = caller;
-
-      no strict 'refs';
-      *{"${callerpkg}::getaddrinfo"} = \&Socket6_getaddrinfo if delete $symbols{getaddrinfo};
-      *{"${callerpkg}::getnameinfo"} = \&Socket6_getnameinfo if delete $symbols{getnameinfo};
+      if( !defined $api or $api eq "Socket6" ) {
+         my $callerpkg = caller;
+
+         no strict 'refs';
+         *{"${callerpkg}::getaddrinfo"} = \&Socket6_getaddrinfo if delete $symbols{getaddrinfo};
+         *{"${callerpkg}::getnameinfo"} = \&Socket6_getnameinfo if delete $symbols{getnameinfo};
+      }
    }
 
    return unless keys %symbols;
@@ -551,8 +552,8 @@
 
 =item *
 
-L<RFC 2553|http://tools.ietf.org/html/rfc2553> - Basic Socket Interface
-Extensions for IPv6
+L<http://tools.ietf.org/html/rfc2553> - Basic Socket Interface Extensions for
+IPv6
 
 =back
 

Added: branches/upstream/libsocket-getaddrinfo-perl/current/t/04import-warn.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsocket-getaddrinfo-perl/current/t/04import-warn.t?rev=44412&op=file
==============================================================================
--- branches/upstream/libsocket-getaddrinfo-perl/current/t/04import-warn.t (added)
+++ branches/upstream/libsocket-getaddrinfo-perl/current/t/04import-warn.t Sun Sep 20 17:05:31 2009
@@ -1,0 +1,23 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+use Test::More tests => 3;
+use Test::Warn;
+
+# Don't 'use' because we're testing warnings produced by import
+require Socket::GetAddrInfo;
+
+warning_is { import Socket::GetAddrInfo qw( :newapi getaddrinfo ) }
+   [],
+   'importing getaddrinfo with tag produces no warning';
+
+undef &getaddrinfo; # avoids redefine warning
+
+warning_like { import Socket::GetAddrInfo qw( getaddrinfo ) }
+   [{ carped => qr/^Importing Socket::GetAddrInfo without ':newapi' or ':Socket6api' tag\..*$/s }],
+   'importing getaddrinfo without tag produces warning';
+
+warning_like { import Socket::GetAddrInfo qw( AI_PASSIVE ) }
+   [],
+   'importing AI_PASSIVE without tag produces no warning';

Added: branches/upstream/libsocket-getaddrinfo-perl/current/t/99pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsocket-getaddrinfo-perl/current/t/99pod.t?rev=44412&op=file
==============================================================================
--- branches/upstream/libsocket-getaddrinfo-perl/current/t/99pod.t (added)
+++ branches/upstream/libsocket-getaddrinfo-perl/current/t/99pod.t Sun Sep 20 17:05:31 2009
@@ -1,0 +1,8 @@
+#!/usr/bin/perl -w
+
+use Test::More;
+
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+
+all_pod_files_ok();

More information about the Pkg-perl-cvs-commits mailing list