r64720 - in /trunk/libnetaddr-ip-perl/debian: changelog patches/spamassasin.patch

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Sun Nov  7 20:54:32 2010
New Revision: 64720

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64720
Log:
Added Steve Huffs test v4-to-v6.t

Modified:
    trunk/libnetaddr-ip-perl/debian/changelog
    trunk/libnetaddr-ip-perl/debian/patches/spamassasin.patch

Modified: trunk/libnetaddr-ip-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/debian/changelog?rev=64720&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/debian/changelog (original)
+++ trunk/libnetaddr-ip-perl/debian/changelog Sun Nov  7 20:54:32 2010
@@ -4,6 +4,7 @@
   * Added patch for spamassasin issues (cf. #601601)
     - Added Noah Meyerhans' test.pl as a test script
     - Integrated patch from paul at city-fan.org
+    - Added Steve Huffs test v4-to-v6.t
 
  -- Nicholas Bamber <nicholas at periapt.co.uk>  Sun, 07 Nov 2010 16:23:25 +0000
 

Modified: trunk/libnetaddr-ip-perl/debian/patches/spamassasin.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnetaddr-ip-perl/debian/patches/spamassasin.patch?rev=64720&op=diff
==============================================================================
--- trunk/libnetaddr-ip-perl/debian/patches/spamassasin.patch (original)
+++ trunk/libnetaddr-ip-perl/debian/patches/spamassasin.patch Sun Nov  7 20:54:32 2010
@@ -1,10 +1,12 @@
 Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=601601
 Bug: http://rt.cpan.org/Public/Bug/Display.html?id=62521
-Author: Noah Meyerhans <noahm at debian.org>, paul at city-fan.org
+Author: Noah Meyerhans <noahm at debian.org>, paul at city-fan.org, Steve Huff <shuff at cpan.org>
 Reviewed-by: Nicholas Bamber <nicholas at periapt.co.uk>
 Last-Update: 2010-11-07
 Subject: Issues with spamassasin traced to NetAddr::IP
  * Noah Meyerhans supplied a test for the bug for 4.034 version.
+ * paul at city-fan.org supplied a patch that fixes the issue as it appears in 4.035
+ * Steve Huff supplied a test for the problem as it appears in 4.034
 --- /dev/null
 +++ b/t/noahs_test.t
 @@ -0,0 +1,38 @@
@@ -74,3 +76,22 @@
 +print "exp $exp\ngot ", $ip, "\nnot "
 +	unless $ip eq $exp;
 +&ok;
+--- /dev/null
++++ b/t/v4-to-v6.t
+@@ -0,0 +1,16 @@
++use Test::More tests => 2;
++
++use_ok('NetAddr::IP');
++
++my $masks = {
++    8   => 104,
++};
++
++
++# test localhost
++foreach my $mask ( sort( keys( %{$masks} ) ) ) {
++
++    my $ip = NetAddr::IP->new6("127.0.0.0/$mask");
++    my $target = '0:0:0:0:0:0:7F00:0/' . $masks->{$mask};
++    ok( $ip eq $target, 'v4 to v6 netmask' );
++}