r44414 - in /trunk/libsocket-getaddrinfo-perl: Build.PL Changes MANIFEST META.yml Makefile.PL README debian/changelog debian/control 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:10:24 UTC 2009 

Author: jawnsy-guest
Date: Sun Sep 20 17:10:18 2009
New Revision: 44414

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=44414
Log:
* New upstream release
  + Don't warn if only importing symbolic constants
* Standards-Version 3.8.3 (no changes)

Added:
    trunk/libsocket-getaddrinfo-perl/t/04import-warn.t
      - copied unchanged from r44413, branches/upstream/libsocket-getaddrinfo-perl/current/t/04import-warn.t
    trunk/libsocket-getaddrinfo-perl/t/99pod.t
      - copied unchanged from r44413, branches/upstream/libsocket-getaddrinfo-perl/current/t/99pod.t
Modified:
    trunk/libsocket-getaddrinfo-perl/Build.PL
    trunk/libsocket-getaddrinfo-perl/Changes
    trunk/libsocket-getaddrinfo-perl/MANIFEST
    trunk/libsocket-getaddrinfo-perl/META.yml
    trunk/libsocket-getaddrinfo-perl/Makefile.PL
    trunk/libsocket-getaddrinfo-perl/README
    trunk/libsocket-getaddrinfo-perl/debian/changelog
    trunk/libsocket-getaddrinfo-perl/debian/control
    trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.pm

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

Modified: trunk/libsocket-getaddrinfo-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/Changes?rev=44414&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/Changes (original)
+++ trunk/libsocket-getaddrinfo-perl/Changes Sun Sep 20 17:10:18 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: trunk/libsocket-getaddrinfo-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/MANIFEST?rev=44414&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/MANIFEST (original)
+++ trunk/libsocket-getaddrinfo-perl/MANIFEST Sun Sep 20 17:10:18 2009
@@ -12,3 +12,5 @@
 t/01getaddrinfo.t
 t/02getnameinfo.t
 t/03Socket6api.t
+t/04import-warn.t
+t/99pod.t

Modified: trunk/libsocket-getaddrinfo-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/META.yml?rev=44414&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/META.yml (original)
+++ trunk/libsocket-getaddrinfo-perl/META.yml Sun Sep 20 17:10:18 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: trunk/libsocket-getaddrinfo-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/Makefile.PL?rev=44414&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/Makefile.PL (original)
+++ trunk/libsocket-getaddrinfo-perl/Makefile.PL Sun Sep 20 17:10:18 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: trunk/libsocket-getaddrinfo-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/README?rev=44414&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/README (original)
+++ trunk/libsocket-getaddrinfo-perl/README Sun Sep 20 17:10:18 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: trunk/libsocket-getaddrinfo-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/debian/changelog?rev=44414&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/debian/changelog (original)
+++ trunk/libsocket-getaddrinfo-perl/debian/changelog Sun Sep 20 17:10:18 2009
@@ -1,4 +1,9 @@
-libsocket-getaddrinfo-perl (0.12-2) UNRELEASED; urgency=low
+libsocket-getaddrinfo-perl (0.13-1) UNRELEASED; urgency=low
+
+  [ Jonathan Yu ]
+  * New upstream release
+    + Don't warn if only importing symbolic constants
+  * Standards-Version 3.8.3 (no changes)
 
   [ Salvatore Bonaccorso ]
   * debian/control: Changed: Replace versioned (build-)dependency on
@@ -8,7 +13,7 @@
   [ Ryan Niebur ]
   * Update jawnsy's email address
 
- -- Ryan Niebur <ryanryan52 at gmail.com>  Tue, 01 Sep 2009 21:19:39 -0700
+ -- Jonathan Yu <jawnsy at cpan.org>  Sun, 20 Sep 2009 09:08:56 -0400
 
 libsocket-getaddrinfo-perl (0.12-1) unstable; urgency=low
 

Modified: trunk/libsocket-getaddrinfo-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/debian/control?rev=44414&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/debian/control (original)
+++ trunk/libsocket-getaddrinfo-perl/debian/control Sun Sep 20 17:10:18 2009
@@ -1,12 +1,12 @@
 Source: libsocket-getaddrinfo-perl
 Section: perl
 Priority: optional
-Build-Depends: perl-modules (>= 5.10) | libmodule-build-perl,
-  debhelper (>= 7.2.10), libtest-exception-perl, perl
+Build-Depends: perl, perl-modules (>= 5.10) | libmodule-build-perl,
+  debhelper (>= 7.2.10), libtest-exception-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Jonathan Yu <jawnsy at cpan.org>,
  Nathan Handler <nhandler at ubuntu.com>
-Standards-Version: 3.8.2
+Standards-Version: 3.8.3
 Homepage: http://search.cpan.org/dist/Socket-GetAddrInfo/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libsocket-getaddrinfo-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/

Modified: trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.pm?rev=44414&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.pm (original)
+++ trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.pm Sun Sep 20 17:10:18 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

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