pf-tools commit: r775 [ccaillet-guest] - /branches/next-gen/lib/PFTools/Net.pm

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

Author: ccaillet-guest
Date: Wed Jul 21 08:27:53 2010
New Revision: 775

URL: http://svn.debian.org/wsvn/pf-tools/?sc=1&rev=775
Log:
Removing useless code according to usage of NetAddr::IP objects

Modified:
    branches/next-gen/lib/PFTools/Net.pm

Modified: branches/next-gen/lib/PFTools/Net.pm
URL: http://svn.debian.org/wsvn/pf-tools/branches/next-gen/lib/PFTools/Net.pm?rev=775&op=diff
==============================================================================
--- branches/next-gen/lib/PFTools/Net.pm (original)
+++ branches/next-gen/lib/PFTools/Net.pm Wed Jul 21 08:27:53 2010
@@ -179,23 +179,6 @@
 	if ( defined $6 ) { $ba = $6 }
     }
     ( $ai cmp $bi ) || ( $an <=> $bn ) || ( $av <=> $bv ) || ( $aa <=> $ba );
-}
-
-sub netmask2prefix {
-    my ($netmask) = @_;
-
-    my $prefix = 32;
-
-    my @netmask = split( '\.', $netmask );
-    my $raw = $netmask[0] << 24 | $netmask[1] << 16 | $netmask[2] << 8
-	| $netmask[3];
-
-    while ( ( $raw & 1 ) == 0 && $prefix > 0 ) {
-	$raw = $raw >> 1;
-	$prefix--;
-    }
-
-    return $prefix;
 }
 
 sub Get_Host_Props ($$) {