casa-mp-base

--- 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