r73924 - in /trunk/libnet-ip-perl: debian/ debian/README.Debian debian/changelog debian/compat debian/control debian/copyright debian/docs debian/rules debian/watch ipcount testout/ testout/ipv4.tlog testout/ipv6.tlog
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Tue May 3 06:52:27 UTC 2011
Author: periapt-guest
Date: Tue May 3 06:52:13 2011
New Revision: 73924
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=73924
Log:
[svn-inject] Applying Debian modifications (1.25-2) to trunk
Added:
trunk/libnet-ip-perl/debian/
trunk/libnet-ip-perl/debian/README.Debian
trunk/libnet-ip-perl/debian/changelog
trunk/libnet-ip-perl/debian/compat
trunk/libnet-ip-perl/debian/control
trunk/libnet-ip-perl/debian/copyright
trunk/libnet-ip-perl/debian/docs
trunk/libnet-ip-perl/debian/rules (with props)
trunk/libnet-ip-perl/debian/watch
trunk/libnet-ip-perl/testout/
trunk/libnet-ip-perl/testout/ipv4.tlog
trunk/libnet-ip-perl/testout/ipv6.tlog
Modified:
trunk/libnet-ip-perl/ipcount
Added: trunk/libnet-ip-perl/debian/README.Debian
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ip-perl/debian/README.Debian?rev=73924&op=file
==============================================================================
--- trunk/libnet-ip-perl/debian/README.Debian (added)
+++ trunk/libnet-ip-perl/debian/README.Debian Tue May 3 06:52:13 2011
@@ -1,0 +1,11 @@
+libnet-ip-perl for Debian
+-------------------------
+
+The original program provides 2 Perl scripts called ipcount and
+iptab. In the Debian package, they are provided as examples on the use
+of the Net::IP module, and can be found in directory
+/usr/share/doc/libnet-ip-perl. If you believe that these scripts could
+be useful to a wider audience (i.e. not only as an example), feel free
+to submit a wishlist bug and I'll put them in /usr/bin instead.
+
+ -- Frederic Schutz <schutz at mathgen.ch> Sun, 7 Sep 2003 13:34:55 +1000
Added: trunk/libnet-ip-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ip-perl/debian/changelog?rev=73924&op=file
==============================================================================
--- trunk/libnet-ip-perl/debian/changelog (added)
+++ trunk/libnet-ip-perl/debian/changelog Tue May 3 06:52:13 2011
@@ -1,0 +1,38 @@
+libnet-ip-perl (1.25-2) unstable; urgency=medium
+
+ * Correct a bug in the ipcount script which prevents the use
+ of option -d; thanks to Thomas Parmelan for reporting the bug
+ and providing a patch (Closes: Bug#397941)
+ * Urgency medium to fix an annoying bug in time for Etch.
+ * Upload sponsored thanks to Anibal Monsalve Salazar
+
+ -- Frederic Schutz <schutz at mathgen.ch> Fri, 10 Nov 2006 20:20:26 +0100
+
+libnet-ip-perl (1.25-1) unstable; urgency=low
+
+ * New upstream release (Closes: Bug#381247)
+ * Updated to standards 3.7.2 (nothing to change)
+
+ -- Frederic Schutz <schutz at mathgen.ch> Sat, 5 Aug 2006 00:57:25 +0200
+
+libnet-ip-perl (1.24-1) unstable; urgency=low
+
+ * New upstream release (Closes: Bug#329604)
+ * Misc cleanups, thanks to Florian Ernst
+ * Updated to standards 3.6.2 (nothing to change)
+
+ -- Frederic Schutz <schutz at mathgen.ch> Tue, 15 Nov 2005 20:46:47 +0100
+
+libnet-ip-perl (1.20-2) unstable; urgency=low
+
+ * Updated the documentation to remove inconsistencies with the code
+ closes: Bug#224835
+
+ -- Frederic Schutz <schutz at mathgen.ch> Wed, 4 Aug 2004 01:59:49 +1000
+
+libnet-ip-perl (1.20-1) unstable; urgency=low
+
+ * Initial Release, closes: Bug#209349
+
+ -- Frederic Schutz <schutz at mathgen.ch> Tue, 9 Sep 2003 22:08:59 +1000
+
Added: trunk/libnet-ip-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ip-perl/debian/compat?rev=73924&op=file
==============================================================================
--- trunk/libnet-ip-perl/debian/compat (added)
+++ trunk/libnet-ip-perl/debian/compat Tue May 3 06:52:13 2011
@@ -1,0 +1,1 @@
+4
Added: trunk/libnet-ip-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ip-perl/debian/control?rev=73924&op=file
==============================================================================
--- trunk/libnet-ip-perl/debian/control (added)
+++ trunk/libnet-ip-perl/debian/control Tue May 3 06:52:13 2011
@@ -1,0 +1,19 @@
+Source: libnet-ip-perl
+Section: perl
+Priority: optional
+Maintainer: Frederic Schutz <schutz at mathgen.ch>
+Build-Depends: debhelper (>> 4.0.0)
+Build-Depends-Indep: perl (>= 5.6.0-17)
+Standards-Version: 3.7.2
+
+Package: libnet-ip-perl
+Architecture: all
+Depends: ${perl:Depends}
+Description: Perl extension for manipulating IPv4/IPv6 addresses
+ This package contains the Net::IP module, which provides functions
+ to deal with IPv4/IPv6 addresses. The module can be used as a class,
+ allowing the user to instantiate IP objects, which can be single IP
+ addresses, prefixes, or ranges of addresses. There is also a procedural
+ way of accessing most of the functions. Most subroutines can take either
+ IPv4 or IPv6 addresses transparently.
+
Added: trunk/libnet-ip-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ip-perl/debian/copyright?rev=73924&op=file
==============================================================================
--- trunk/libnet-ip-perl/debian/copyright (added)
+++ trunk/libnet-ip-perl/debian/copyright Tue May 3 06:52:13 2011
@@ -1,0 +1,61 @@
+This package was debianized by Frédéric Schütz <schutz at mathgen.ch> on
+Sun, 31 Aug 2003 21:19:00 +1000.
+
+The original version was downloaded from
+http://search.cpan.org/CPAN/authors/id/M/MA/MANU/Net-IP-1.20.tar.gz
+New releases of the software were downloaded from the directory
+http://search.cpan.org/CPAN/authors/id/M/MA/MANU/, or obtained directly
+from the upstream author.
+
+Upstream Author: Manuel Valente <mvalente at idealx.com>
+(previously <manuel at ripe.net>).
+
+Copyright (according to the original COPYING file) :
+
+---
+Copyright (c) 1999-2000 by RIPE-NCC. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+You should have received a copy of the Perl license along with
+Perl; see the file README in Perl distribution.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+
+
+You should have received a copy of the Artistic License
+along with Perl; see the file Artistic.
+
+ NO WARRANTY
+
+BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
+FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
+OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
+PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
+OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
+TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
+PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
+REPAIR OR CORRECTION.
+
+IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
+REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
+INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
+OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
+TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
+YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
+PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGES.
+
+ END OF TERMS AND CONDITIONS
+
+---
+
+On a Debian system, the GNU General Public License (GPL) can be found
+in /usr/share/common-licenses/GPL.
+
+The Artistic License can be found in /usr/share/common-licenses/Artistic.
Added: trunk/libnet-ip-perl/debian/docs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ip-perl/debian/docs?rev=73924&op=file
==============================================================================
--- trunk/libnet-ip-perl/debian/docs (added)
+++ trunk/libnet-ip-perl/debian/docs Tue May 3 06:52:13 2011
@@ -1,0 +1,1 @@
+README
Added: trunk/libnet-ip-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ip-perl/debian/rules?rev=73924&op=file
==============================================================================
--- trunk/libnet-ip-perl/debian/rules (added)
+++ trunk/libnet-ip-perl/debian/rules Tue May 3 06:52:13 2011
@@ -1,0 +1,73 @@
+#!/usr/bin/make -f
+# Sample debian/rules that uses debhelper.
+# GNU copyright 1997 to 1999 by Joey Hess.
+
+# Uncomment this to turn on verbose mode.
+#export DH_VERBOSE=1
+
+PACKAGE=$(shell dh_listpackages)
+
+ifndef PERL
+PERL = /usr/bin/perl
+endif
+
+ifndef DESTDIR
+DESTDIR=..
+endif
+
+TMP =$(CURDIR)/debian/$(PACKAGE)
+
+build: build-stamp
+build-stamp:
+ dh_testdir
+
+ perl Makefile.PL INSTALLDIRS=vendor
+ $(MAKE) OPTIMIZE="-O2 -g -Wall"
+
+ touch build-stamp
+
+clean:
+ dh_testdir
+ rm -f build-stamp
+
+ # Next line changed as per bug #325372
+ #-$(MAKE) clean
+ [ ! -f Makefile ] || make clean
+ rm -f Makefile.old
+ dh_clean
+
+install: build
+ dh_testdir
+ dh_testroot
+ dh_clean -k
+
+ # Add here commands to install the package into debian/libnet-ip-perl.
+ $(MAKE) install PREFIX=$(TMP)/usr
+ # iptab and ipcount are provided only as examples, and we
+ # don't want to put them in /usr/bin, so we remove them for now,
+ # barring any opposition.
+ rm $(TMP)/usr/bin/iptab
+ rm $(TMP)/usr/bin/ipcount
+
+# Build architecture-independent files here.
+binary-indep: build install
+# We have nothing to do by default.
+
+# Build architecture-dependent files here.
+binary-arch: build install
+ dh_testdir
+ dh_testroot
+ dh_installchangelogs Changes
+ dh_installdocs
+ dh_installexamples blib/script/ipcount blib/script/iptab
+ dh_compress
+ dh_fixperms
+ dh_perl
+ dh_installdeb
+ dh_shlibdeps
+ dh_gencontrol
+ dh_md5sums
+ dh_builddeb
+
+binary: binary-indep binary-arch
+.PHONY: build clean binary-indep binary-arch binary install
Propchange: trunk/libnet-ip-perl/debian/rules
------------------------------------------------------------------------------
svn:executable = *
Added: trunk/libnet-ip-perl/debian/watch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ip-perl/debian/watch?rev=73924&op=file
==============================================================================
--- trunk/libnet-ip-perl/debian/watch (added)
+++ trunk/libnet-ip-perl/debian/watch Tue May 3 06:52:13 2011
@@ -1,0 +1,4 @@
+# Watch control file for uscan
+version=2
+# Site Version Script
+http://search.cpan.org/CPAN/authors/id/M/MA/MANU/Net-IP-(.+).tar.gz debian uupdate
Modified: trunk/libnet-ip-perl/ipcount
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ip-perl/ipcount?rev=73924&op=diff
==============================================================================
--- trunk/libnet-ip-perl/ipcount (original)
+++ trunk/libnet-ip-perl/ipcount Tue May 3 06:52:13 2011
@@ -77,7 +77,7 @@
while ($current->bincomp ('lt', $last))
{
- $new_ip->set($current->last_ip.'+'.$size) or die (Error());
+ $new_ip->set($current->last_ip.' + '.$size) or die (Error());
print $new_ip->print,"\n";
if ($opts{r})
@@ -85,7 +85,7 @@
print $new_ip->reverse_ip,"\n";
}
- $current->set($new_ip->last_ip .'+ 1') or die (Error());
+ $current->set($new_ip->last_ip .' + 1') or die (Error());
$count++;
}
Added: trunk/libnet-ip-perl/testout/ipv4.tlog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ip-perl/testout/ipv4.tlog?rev=73924&op=file
==============================================================================
--- trunk/libnet-ip-perl/testout/ipv4.tlog (added)
+++ trunk/libnet-ip-perl/testout/ipv4.tlog Tue May 3 06:52:13 2011
@@ -1,0 +1,135 @@
+1..27
+
+1: ok 1
+
+2: (Is 'A' string-equal to 'B'?)
+2: A: "11000011011100100101000000000000"
+2: B: "11000011011100100101000000000000"
+2: ok 2
+
+3: (Is 'A' string-equal to 'B'?)
+3: A: "195.114.80.0"
+3: B: "195.114.80.0"
+3: ok 3
+
+4: (Is 'A' string-equal to 'B'?)
+4: A: "195.114.80/24"
+4: B: "195.114.80/24"
+4: ok 4
+
+5: (Is 'A' string-equal to 'B'?)
+5: A: "0xc3725000"
+5: B: "0xc3725000"
+5: ok 5
+
+6: (Is 'A' string-equal to 'B'?)
+6: A: "0xffffff00"
+6: B: "0xffffff00"
+6: ok 6
+
+7: (Is 'A' numerically-equal to 'B'?)
+7: A: "24"
+7: B: "24"
+7: ok 7
+
+8: (Is 'A' numerically-equal to 'B'?)
+8: A: "4"
+8: B: "4"
+8: ok 8
+
+9: (Is 'A' numerically-equal to 'B'?)
+9: A: "256"
+9: B: "256"
+9: ok 9
+
+10: (Is 'A' string-equal to 'B'?)
+10: A: "11111111111111111111111100000000"
+10: B: "11111111111111111111111100000000"
+10: ok 10
+
+11: (Is 'A' string-equal to 'B'?)
+11: A: "255.255.255.0"
+11: B: "255.255.255.0"
+11: ok 11
+
+12: (Is 'A' numerically-equal to 'B'?)
+12: A: "3279048704"
+12: B: "3279048704"
+12: ok 12
+
+13: (Is 'A' string-equal to 'B'?)
+13: A: "PUBLIC"
+13: B: "PUBLIC"
+13: ok 13
+
+14: (Is 'A' string-equal to 'B'?)
+14: A: "80.114.195.in-addr.arpa."
+14: B: "80.114.195.in-addr.arpa."
+14: ok 14
+
+15: (Is 'A' string-equal to 'B'?)
+15: A: "11000011011100100101000011111111"
+15: B: "11000011011100100101000011111111"
+15: ok 15
+
+16: (Is 'A' string-equal to 'B'?)
+16: A: "195.114.80.255"
+16: B: "195.114.80.255"
+16: ok 16
+
+17: (Is 'A' string-equal to 'B'?)
+17: A: "202.31.4.0"
+17: B: "202.31.4.0"
+17: ok 17
+
+18: Invalid prefix 11101010111101011111110011111101/2
+18: A: "Invalid prefix 11101010111101011111110011111101/2"
+18: B: "Invalid prefix 11101010111101011111110011111101/2"
+18: ok 18
+
+19: Invalid prefix 11101010111101011111110011111101/2
+19: A: "171"
+19: B: "171"
+19: ok 19
+
+20: (Is 'A' string-equal to 'B'?)
+20: A: "62.34.41.14"
+20: B: "62.34.41.14"
+20: ok 20
+
+21: (Is 'A' numerically-equal to 'B'?)
+21: A: "23"
+21: B: "23"
+21: ok 21
+
+22: (Is 'A' numerically-equal to 'B'?)
+22: A: "1"
+22: B: "1"
+22: ok 22
+
+23: (Is 'A' string-equal to 'B'?)
+23: A: "133.45.0.40/31"
+23: B: "133.45.0.40/31"
+23: ok 23
+
+24: (Is 'A' numerically-equal to 'B'?)
+24: A: "1"
+24: B: "1"
+24: ok 24
+
+25: (Is 'A' string-equal to 'B'?)
+25: A: "192.168.2.254/31"
+25: B: "192.168.2.254/31"
+25: ok 25
+
+26: (Is 'A' numerically-equal to 'B'?)
+26: A: "-2"
+26: B: "-2"
+26: ok 26
+
+27: (Is 'A' numerically-equal to 'B'?)
+27: A: "1"
+27: B: "1"
+27: ok 27
+
+END
Added: trunk/libnet-ip-perl/testout/ipv6.tlog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ip-perl/testout/ipv6.tlog?rev=73924&op=file
==============================================================================
--- trunk/libnet-ip-perl/testout/ipv6.tlog (added)
+++ trunk/libnet-ip-perl/testout/ipv6.tlog Tue May 3 06:52:13 2011
@@ -1,0 +1,105 @@
+1..21
+
+1: ok 1
+
+2: (Is 'A' string-equal to 'B'?)
+2: A: "11011110101011011011111011101111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
+2: B: "11011110101011011011111011101111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
+2: ok 2
+
+3: (Is 'A' string-equal to 'B'?)
+3: A: "dead:beef:0000:0000:0000:0000:0000:0000"
+3: B: "dead:beef:0000:0000:0000:0000:0000:0000"
+3: ok 3
+
+4: (Is 'A' string-equal to 'B'?)
+4: A: "dead:beef::"
+4: B: "dead:beef::"
+4: ok 4
+
+5: (Is 'A' string-equal to 'B'?)
+5: A: "0xdeadbeef000000000000000000000000"
+5: B: "0xdeadbeef000000000000000000000000"
+5: ok 5
+
+6: (Is 'A' string-equal to 'B'?)
+6: A: "0xffffffffffff00000000000000000000"
+6: B: "0xffffffffffff00000000000000000000"
+6: ok 6
+
+7: (Is 'A' numerically-equal to 'B'?)
+7: A: "48"
+7: B: "48"
+7: ok 7
+
+8: (Is 'A' numerically-equal to 'B'?)
+8: A: "6"
+8: B: "6"
+8: ok 8
+
+9: (Is 'A' string-equal to 'B'?)
+9: A: "ffff:ffff:ffff:0000:0000:0000:0000:0000"
+9: B: "ffff:ffff:ffff:0000:0000:0000:0000:0000"
+9: ok 9
+
+10: (Is 'A' numerically-equal to 'B'?)
+10: A: "295990755014133383690938178081940045824"
+10: B: "295990755014133383690938178081940045824"
+10: ok 10
+
+11: (Is 'A' string-equal to 'B'?)
+11: A: "RESERVED"
+11: B: "RESERVED"
+11: ok 11
+
+12: (Is 'A' string-equal to 'B'?)
+12: A: "0.0.0.0.f.e.e.b.d.a.e.d.ip6.arpa."
+12: B: "0.0.0.0.f.e.e.b.d.a.e.d.ip6.arpa."
+12: ok 12
+
+13: (Is 'A' string-equal to 'B'?)
+13: A: "dead:beef:0000:ffff:ffff:ffff:ffff:ffff"
+13: B: "dead:beef:0000:ffff:ffff:ffff:ffff:ffff"
+13: ok 13
+
+14: (Is 'A' string-equal to 'B'?)
+14: A: "202.31.4.0"
+14: B: "202.31.4.0"
+14: ok 14
+
+15: Invalid address :1 (starts with :)
+15: A: "Invalid address :1 (starts with :)"
+15: B: "Invalid address :1 (starts with :)"
+15: ok 15
+
+16: Invalid address :1 (starts with :)
+16: A: "109"
+16: B: "109"
+16: ok 16
+
+17: (Is 'A' string-equal to 'B'?)
+17: A: "ff00:1::"
+17: B: "ff00:1::"
+17: ok 17
+
+18: (Is 'A' numerically-equal to 'B'?)
+18: A: "111"
+18: B: "111"
+18: ok 18
+
+19: (Is 'A' numerically-equal to 'B'?)
+19: A: "1"
+19: B: "1"
+19: ok 19
+
+20: (Is 'A' string-equal to 'B'?)
+20: A: "0000:0000:0000:0000:0000:0000:e002:0040/127"
+20: B: "0000:0000:0000:0000:0000:0000:e002:0040/127"
+20: ok 20
+
+21: (Is 'A' numerically-equal to 'B'?)
+21: A: "0"
+21: B: "0"
+21: ok 21
+
+END
More information about the Pkg-perl-cvs-commits
mailing list