Implement an additional flag for hostile networks safe to drop

[location/libloc.git] / src / perl / Location.xs

diff --git a/src/perl/Location.xs b/src/perl/Location.xs
index dcf3f0d79524801083aafe5497091f4abfd2aec6..73f85b45ce586f5136b0738f33afa61e95cd5f67 100644 (file)
--- a/src/perl/Location.xs
+++ b/src/perl/Location.xs
@@ -125,7 +125,7 @@ database_countries(db)
        PPCODE:
                // Create Database enumerator
                struct loc_database_enumerator* enumerator;
-               int err = loc_database_enumerator_new(&enumerator, db, LOC_DB_ENUMERATE_COUNTRIES);
+               int err = loc_database_enumerator_new(&enumerator, db, LOC_DB_ENUMERATE_COUNTRIES, 0);
 
                if (err) {
                        croak("Could not create a database enumerator\n");
@@ -198,6 +198,8 @@ lookup_network_has_flag(db, address, flag)
                        iv |= LOC_NETWORK_FLAG_SATELLITE_PROVIDER;
                else if (strcmp("LOC_NETWORK_FLAG_ANYCAST", flag) == 0)
                        iv |= LOC_NETWORK_FLAG_ANYCAST;
+               else if (strcmp("LOC_NETWORK_FLAG_DROP", flag) == 0)
+                       iv |= LOC_NETWORK_FLAG_DROP;
                else
                        croak("Invalid flag");