--- ipv4pack/ipv4pack.pm.orig	2010-12-05 09:18:51.000000000 +0100
+++ ipv4pack/ipv4pack.pm	2010-12-05 09:19:44.000000000 +0100
@@ -271,7 +271,7 @@
 
        # check for a valid range: no CLASS-D and upper (223-255), no 127/8 
        # and no private networks allowed (10/8)
-       return ("", $O_PRIVATERANGE) if ($1 =~ /^10|127$/);
+       return ("", $O_PRIVATERANGE) if ($1 eq "10" || $1 eq "127");
        return ("", $O_RESERVEDCLASS) if ($1 > 223);
 
        if ($3 eq '/') {	 # range is in format quad/prefix