From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 27 Aug 2009 19:58:56 +0000 (+0000)
Subject: correctly pack/unpack into 32-bit number for marking etc.
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=07f1cbb7bff968de5708be122749b2a20bde55a3;p=pxelator

correctly pack/unpack into 32-bit number for marking etc.
---

diff --git a/lib/PXElator/ip.pm b/lib/PXElator/ip.pm
index 18eb1aa..4b32178 100644
--- a/lib/PXElator/ip.pm
+++ b/lib/PXElator/ip.pm
@@ -111,11 +111,11 @@ sub default_route_dev {
 }
 
 sub to_int {
-	pack( 'C*', split(/\./, shift) )
+	unpack( 'N', pack( 'C*', split(/\./, shift) ) )
 }
 
 sub from_int {
-	join( '.', unpack('C4', shift) )
+	join( '.', unpack('C4', pack('N',shift)) )
 }
 
 1;