===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libgeo-ip-perl-1.51/README.md-14- # returns undef if country is unallocated, or not defined in our database
libgeo-ip-perl-1.51/README.md:15: my $country = $gi->country_code_by_addr('24.24.24.24');
libgeo-ip-perl-1.51/README.md-16- $country = $gi->country_code_by_name('yahoo.com');
##############################################
libgeo-ip-perl-1.51/README.md-21- my $gi = Geo::IP->open("/usr/local/share/GeoIP/GeoIPCity.dat", GEOIP_STANDARD);
libgeo-ip-perl-1.51/README.md:22: my $record = $gi->record_by_addr('24.24.24.24');
libgeo-ip-perl-1.51/README.md-23- print $record->country_code,
##############################################
libgeo-ip-perl-1.51/README.md-124-
libgeo-ip-perl-1.51/README.md:125: Constructs a new Geo::IP object with the database located at `$database_filename`.
libgeo-ip-perl-1.51/README.md-126-
##############################################
libgeo-ip-perl-1.51/README.md-138-
libgeo-ip-perl-1.51/README.md:139:- $code = $gi->country\_code\_by\_addr( $ipaddr );
libgeo-ip-perl-1.51/README.md-140-
##############################################
libgeo-ip-perl-1.51/README.md-146-
libgeo-ip-perl-1.51/README.md:147:- $code = $gi->country\_code3\_by\_addr( $ipaddr );
libgeo-ip-perl-1.51/README.md-148-
##############################################
libgeo-ip-perl-1.51/README.md-154-
libgeo-ip-perl-1.51/README.md:155:- $name = $gi->country\_name\_by\_addr( $ipaddr );
libgeo-ip-perl-1.51/README.md-156-
##############################################
libgeo-ip-perl-1.51/README.md-162-
libgeo-ip-perl-1.51/README.md:163:- $r = $gi->record\_by\_addr( $ipaddr );
libgeo-ip-perl-1.51/README.md-164-
##############################################
libgeo-ip-perl-1.51/README.md-170-
libgeo-ip-perl-1.51/README.md:171:- $org = $gi->org\_by\_addr( $ipaddr ); **deprecated** use `name_by_addr` instead.
libgeo-ip-perl-1.51/README.md-172-
##############################################
libgeo-ip-perl-1.51/README.md-192-
libgeo-ip-perl-1.51/README.md:193:- ( $country, $region ) = $gi->region\_by\_addr('24.24.24.24');
libgeo-ip-perl-1.51/README.md-194-
##############################################
libgeo-ip-perl-1.51/README.md-233-
libgeo-ip-perl-1.51/README.md:234:- $isp = $gi->isp\_by\_addr('24.24.24.24');
libgeo-ip-perl-1.51/README.md-235-
##############################################
libgeo-ip-perl-1.51/README.md-257-
libgeo-ip-perl-1.51/README.md:258:- $id = $gi->id\_by\_addr('24.24.24.24');
libgeo-ip-perl-1.51/README.md-259-
##############################################
libgeo-ip-perl-1.51/xt/1_lookup.t-16- my ( $ipaddr, $exp_country ) = split("\t");
libgeo-ip-perl-1.51/xt/1_lookup.t:17: my $country = $gi->country_code_by_addr($ipaddr);
libgeo-ip-perl-1.51/xt/1_lookup.t-18- ok( uc($country), $exp_country );
##############################################
libgeo-ip-perl-1.51/t/region.t-10-is_deeply(
libgeo-ip-perl-1.51/t/region.t:11: [ $gi->region_by_addr('64.17.254.223') ], [ 'US', 'CA' ],
libgeo-ip-perl-1.51/t/region.t-12- 'expected region and country'
##############################################
libgeo-ip-perl-1.51/t/city.t-9-
libgeo-ip-perl-1.51/t/city.t:10:my $record = $gi->record_by_addr('64.17.254.216');
libgeo-ip-perl-1.51/t/city.t-11-
##############################################
libgeo-ip-perl-1.51/t/country.t-10-is(
libgeo-ip-perl-1.51/t/country.t:11: $gi->country_code_by_addr('64.17.254.216'), 'US',
libgeo-ip-perl-1.51/t/country.t-12- 'expected country code'
##############################################
libgeo-ip-perl-1.51/t/country.t-15-is(
libgeo-ip-perl-1.51/t/country.t:16: $gi->country_name_by_addr('64.17.254.216'), 'United States',
libgeo-ip-perl-1.51/t/country.t-17- 'expected country name'
##############################################
libgeo-ip-perl-1.51/t/netspeedcell.t-9-
libgeo-ip-perl-1.51/t/netspeedcell.t:10:is( $gi->name_by_addr('2.125.160.1'), 'Dialup', 'expected "speed"' );
libgeo-ip-perl-1.51/t/netspeedcell.t-11-
##############################################
libgeo-ip-perl-1.51/t/domain.t-10-is(
libgeo-ip-perl-1.51/t/domain.t:11: $gi->name_by_addr('67.43.156.0'), 'shoesfin.NET',
libgeo-ip-perl-1.51/t/domain.t-12- 'expected domain name'
##############################################
libgeo-ip-perl-1.51/IP.xs-100-int
libgeo-ip-perl-1.51/IP.xs:101:id_by_addr(gi, addr)
libgeo-ip-perl-1.51/IP.xs-102- GeoIP *gi
##############################################
libgeo-ip-perl-1.51/IP.xs-104- CODE:
libgeo-ip-perl-1.51/IP.xs:105: RETVAL = GeoIP_id_by_addr(gi,addr);
libgeo-ip-perl-1.51/IP.xs-106- OUTPUT:
##############################################
libgeo-ip-perl-1.51/IP.xs-215-const char *
libgeo-ip-perl-1.51/IP.xs:216:country_code_by_addr(gi, addr)
libgeo-ip-perl-1.51/IP.xs-217- GeoIP *gi
##############################################
libgeo-ip-perl-1.51/IP.xs-219- CODE:
libgeo-ip-perl-1.51/IP.xs:220: RETVAL = GeoIP_country_code_by_addr(gi,addr);
libgeo-ip-perl-1.51/IP.xs-221- OUTPUT:
##############################################
libgeo-ip-perl-1.51/IP.xs-233-const char *
libgeo-ip-perl-1.51/IP.xs:234:country_code3_by_addr(gi, addr)
libgeo-ip-perl-1.51/IP.xs-235- GeoIP *gi
##############################################
libgeo-ip-perl-1.51/IP.xs-237- CODE:
libgeo-ip-perl-1.51/IP.xs:238: RETVAL = GeoIP_country_code3_by_addr(gi,addr);
libgeo-ip-perl-1.51/IP.xs-239- OUTPUT:
##############################################
libgeo-ip-perl-1.51/IP.xs-251-const char *
libgeo-ip-perl-1.51/IP.xs:252:country_name_by_addr(gi, addr)
libgeo-ip-perl-1.51/IP.xs-253- GeoIP *gi
##############################################
libgeo-ip-perl-1.51/IP.xs-255- CODE:
libgeo-ip-perl-1.51/IP.xs:256: RETVAL = GeoIP_country_name_by_addr(gi,addr);
libgeo-ip-perl-1.51/IP.xs-257- OUTPUT:
##############################################
libgeo-ip-perl-1.51/IP.xs-329-void
libgeo-ip-perl-1.51/IP.xs:330:org_by_addr(gi, addr)
libgeo-ip-perl-1.51/IP.xs-331- GeoIP *gi
##############################################
libgeo-ip-perl-1.51/IP.xs-336- ST(0) = sv_newmortal();
libgeo-ip-perl-1.51/IP.xs:337: n = GeoIP_org_by_addr(gi,addr);
libgeo-ip-perl-1.51/IP.xs-338- if ( n != NULL ) {
##############################################
libgeo-ip-perl-1.51/IP.xs-390-void
libgeo-ip-perl-1.51/IP.xs:391:region_by_addr(gi, addr)
libgeo-ip-perl-1.51/IP.xs-392- GeoIP *gi
##############################################
libgeo-ip-perl-1.51/IP.xs-396- PPCODE:
libgeo-ip-perl-1.51/IP.xs:397: gir = GeoIP_region_by_addr(gi,addr);
libgeo-ip-perl-1.51/IP.xs-398- if (gir){
##############################################
libgeo-ip-perl-1.51/IP.xs-467-GeoIPRecord *
libgeo-ip-perl-1.51/IP.xs:468:record_by_addr(gi, addr)
libgeo-ip-perl-1.51/IP.xs-469- GeoIP *gi
##############################################
libgeo-ip-perl-1.51/IP.xs-473- CODE:
libgeo-ip-perl-1.51/IP.xs:474: RETVAL = GeoIP_record_by_addr(gi,addr);
libgeo-ip-perl-1.51/IP.xs-475- OUTPUT:
##############################################
libgeo-ip-perl-1.51/Changes-65-- Add example/benchmark.pl and example/country_v6.pl ( Boris Zentner )
libgeo-ip-perl-1.51/Changes:66:- Add name_by_name and name_by_addr ( Boris Zentner )
libgeo-ip-perl-1.51/Changes-67-- Add org_by_name_v6 and org_by_addr_v6 only XS ( Boris Zentner )
##############################################
libgeo-ip-perl-1.51/Changes-129- regions. Instead of "\0" and '000' ( Boris Zentner )
libgeo-ip-perl-1.51/Changes:130:- Add PP function region_by_addr ( Boris Zentner )
libgeo-ip-perl-1.51/Changes-131-- Change the default values of Geo::IP::Record fields for metro_code and
##############################################
libgeo-ip-perl-1.51/example/benchmark.pl-42- country_std => sub {
libgeo-ip-perl-1.51/example/benchmark.pl:43: $gi->country_code_by_addr( $ips[ ++$cnt % 1e5 ] );
libgeo-ip-perl-1.51/example/benchmark.pl-44- },
libgeo-ip-perl-1.51/example/benchmark.pl-45- country_mem => sub {
libgeo-ip-perl-1.51/example/benchmark.pl:46: $gim->country_code_by_addr( $ips[ ++$cnt % 1e5 ] );
libgeo-ip-perl-1.51/example/benchmark.pl-47- },
libgeo-ip-perl-1.51/example/benchmark.pl-48- city_std => sub {
libgeo-ip-perl-1.51/example/benchmark.pl:49: $gic->record_by_addr( $ips[ ++$cnt % 1e5 ] );
libgeo-ip-perl-1.51/example/benchmark.pl-50- },
libgeo-ip-perl-1.51/example/benchmark.pl-51- city_mem => sub {
libgeo-ip-perl-1.51/example/benchmark.pl:52: $gicm->record_by_addr( $ips[ ++$cnt % 1e5 ] );
libgeo-ip-perl-1.51/example/benchmark.pl-53- },
libgeo-ip-perl-1.51/example/benchmark.pl-54- isp_std => sub {
libgeo-ip-perl-1.51/example/benchmark.pl:55: $gii->name_by_addr( $ips[ ++$cnt % 1e5 ] );
libgeo-ip-perl-1.51/example/benchmark.pl-56- },
libgeo-ip-perl-1.51/example/benchmark.pl-57- isp_mem => sub {
libgeo-ip-perl-1.51/example/benchmark.pl:58: $giim->name_by_addr( $ips[ ++$cnt % 1e5 ] );
libgeo-ip-perl-1.51/example/benchmark.pl-59- },
##############################################
libgeo-ip-perl-1.51/example/netspeedcell.pl-12-
libgeo-ip-perl-1.51/example/netspeedcell.pl:13:print $gi->name_by_addr("24.24.24.24"), $/;
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP/Record.pod-10-
libgeo-ip-perl-1.51/lib/Geo/IP/Record.pod:11: my $record = $gi->record_by_addr('24.24.24.24');
libgeo-ip-perl-1.51/lib/Geo/IP/Record.pod-12-
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-268- AP EU AND ARE AFG ATG AIA
libgeo-ip-perl-1.51/lib/Geo/IP.pm:269: ALB ARM CUW AGO ATA ARG ASM AUT
libgeo-ip-perl-1.51/lib/Geo/IP.pm-270- AUS ABW AZE BIH BRB BGD BEL BFA
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5324- return unless $ip_address =~ m!^(?:\d{1,3}\.){3}\d{1,3}$!;
libgeo-ip-perl-1.51/lib/Geo/IP.pm:5325: return $countries[ $gi->id_by_addr($ip_address) ];
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5326-}
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5331- return unless $ip_address =~ m!^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$!;
libgeo-ip-perl-1.51/lib/Geo/IP.pm:5332: return $code3s[ $gi->id_by_addr($ip_address) ];
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5333-}
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5338- return unless $ip_address =~ m!^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$!;
libgeo-ip-perl-1.51/lib/Geo/IP.pm:5339: return $names[ $gi->id_by_addr($ip_address) ];
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5340-}
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5404- my ( $gi, $host ) = @_;
libgeo-ip-perl-1.51/lib/Geo/IP.pm:5405: return $gi->org_by_addr( $gi->get_ip_address($host) );
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5406-}
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5598- }
libgeo-ip-perl-1.51/lib/Geo/IP.pm:5599: return ( num_to_addr($left_seek_num), num_to_addr($right_seek_num) );
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5600-}
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5955- # returns undef if country is unallocated, or not defined in our database
libgeo-ip-perl-1.51/lib/Geo/IP.pm:5956: my $country = $gi->country_code_by_addr('24.24.24.24');
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5957- $country = $gi->country_code_by_name('yahoo.com');
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5962- my $gi = Geo::IP->open("/usr/local/share/GeoIP/GeoIPCity.dat", GEOIP_STANDARD);
libgeo-ip-perl-1.51/lib/Geo/IP.pm:5963: my $record = $gi->record_by_addr('24.24.24.24');
libgeo-ip-perl-1.51/lib/Geo/IP.pm-5964- print $record->country_code,
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6085-
libgeo-ip-perl-1.51/lib/Geo/IP.pm:6086:=item $code = $gi->country_code_by_addr( $ipaddr );
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6087-
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6093-
libgeo-ip-perl-1.51/lib/Geo/IP.pm:6094:=item $code = $gi->country_code3_by_addr( $ipaddr );
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6095-
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6101-
libgeo-ip-perl-1.51/lib/Geo/IP.pm:6102:=item $name = $gi->country_name_by_addr( $ipaddr );
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6103-
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6109-
libgeo-ip-perl-1.51/lib/Geo/IP.pm:6110:=item $r = $gi->record_by_addr( $ipaddr );
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6111-
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6117-
libgeo-ip-perl-1.51/lib/Geo/IP.pm:6118:=item $org = $gi->org_by_addr( $ipaddr ); B<deprecated> use C<name_by_addr> instead.
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6119-
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6139-
libgeo-ip-perl-1.51/lib/Geo/IP.pm:6140:=item ( $country, $region ) = $gi->region_by_addr('24.24.24.24');
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6141-
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6180-
libgeo-ip-perl-1.51/lib/Geo/IP.pm:6181:=item $isp = $gi->isp_by_addr('24.24.24.24');
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6182-
##############################################
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6204-
libgeo-ip-perl-1.51/lib/Geo/IP.pm:6205:=item $id = $gi->id_by_addr('24.24.24.24');
libgeo-ip-perl-1.51/lib/Geo/IP.pm-6206-
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-268- AP EU AND ARE AFG ATG AIA
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:269: ALB ARM CUW AGO ATA ARG ASM AUT
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-270- AUS ABW AZE BIH BRB BGD BEL BFA
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5324- return unless $ip_address =~ m!^(?:\d{1,3}\.){3}\d{1,3}$!;
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:5325: return $countries[ $gi->id_by_addr($ip_address) ];
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5326-}
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5331- return unless $ip_address =~ m!^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$!;
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:5332: return $code3s[ $gi->id_by_addr($ip_address) ];
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5333-}
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5338- return unless $ip_address =~ m!^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$!;
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:5339: return $names[ $gi->id_by_addr($ip_address) ];
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5340-}
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5404- my ( $gi, $host ) = @_;
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:5405: return $gi->org_by_addr( $gi->get_ip_address($host) );
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5406-}
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5598- }
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:5599: return ( num_to_addr($left_seek_num), num_to_addr($right_seek_num) );
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5600-}
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5955- # returns undef if country is unallocated, or not defined in our database
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:5956: my $country = $gi->country_code_by_addr('24.24.24.24');
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5957- $country = $gi->country_code_by_name('yahoo.com');
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5962- my $gi = Geo::IP->open("/usr/local/share/GeoIP/GeoIPCity.dat", GEOIP_STANDARD);
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:5963: my $record = $gi->record_by_addr('24.24.24.24');
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-5964- print $record->country_code,
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6085-
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:6086:=item $code = $gi->country_code_by_addr( $ipaddr );
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6087-
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6093-
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:6094:=item $code = $gi->country_code3_by_addr( $ipaddr );
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6095-
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6101-
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:6102:=item $name = $gi->country_name_by_addr( $ipaddr );
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6103-
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6109-
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:6110:=item $r = $gi->record_by_addr( $ipaddr );
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6111-
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6117-
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:6118:=item $org = $gi->org_by_addr( $ipaddr ); B<deprecated> use C<name_by_addr> instead.
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6119-
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6139-
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:6140:=item ( $country, $region ) = $gi->region_by_addr('24.24.24.24');
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6141-
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6180-
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:6181:=item $isp = $gi->isp_by_addr('24.24.24.24');
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6182-
##############################################
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6204-
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm:6205:=item $id = $gi->id_by_addr('24.24.24.24');
libgeo-ip-perl-1.51/.pc/no-constants.patch/lib/Geo/IP.pm-6206-