r73946 - in /trunk/libnet-ip-perl: debian/rules ipcount testout/

periapt-guest at users.alioth.debian.org periapt-guest at users.alioth.debian.org
Tue May 3 21:17:25 UTC 2011


Author: periapt-guest
Date: Tue May  3 21:15:26 2011
New Revision: 73946

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=73946
Log:
syncing with upstream

Removed:
    trunk/libnet-ip-perl/testout/
Modified:
    trunk/libnet-ip-perl/debian/rules
    trunk/libnet-ip-perl/ipcount

Modified: trunk/libnet-ip-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ip-perl/debian/rules?rev=73946&op=diff
==============================================================================
--- trunk/libnet-ip-perl/debian/rules (original)
+++ trunk/libnet-ip-perl/debian/rules Tue May  3 21:15:26 2011
@@ -7,6 +7,13 @@
 %:
 	dh $@
 
+override_dh_auto_configure:
+	! [ -e $(CURDIR)/testout/ipv4.tlog ] \
+	    || cp $(CURDIR)/testout/ipv4.tlog debian/ipv4.tlog
+	! [ -e $(CURDIR)/testout/ipv6.tlog ] \
+	    || cp $(CURDIR)/testout/ipv6.tlog debian/ipv6.tlog
+	dh_auto_configure
+
 override_dh_install:
 	dh_install
 	rm -rf $(TMP)/usr/bin
@@ -15,4 +22,10 @@
 	dh_installexamples
 	sed -i -e'1s|#!perl|#!/usr/bin/perl|' $(EG)/ip*
 
+override_dh_auto_test:
+	dh_auto_test
+	! [ -e debian/ipv4.tlog ] \
+	    || mv debian/ipv4.tlog $(CURDIR)/testout/ipv4.tlog
+	! [ -e debian/ipv6.tlog ] \
+	    || mv debian/ipv6.tlog $(CURDIR)/testout/ipv6.tlog
 

Modified: trunk/libnet-ip-perl/ipcount
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-ip-perl/ipcount?rev=73946&op=diff
==============================================================================
--- trunk/libnet-ip-perl/ipcount (original)
+++ trunk/libnet-ip-perl/ipcount Tue May  3 21:15:26 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++;
 	}




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