提交: 163a079a148a1844992825c13ac5c73e66c0b921 - addr2country (git)

Commit MetaInfo

• 修訂: 163a079a148a1844992825c13ac5c73e66c0b921 (tree)
• 時間: 2022-04-10 15:56:37
• 作者: dyknon <dyknon@user...>
• Commiter: dyknon

Log Message

fix prefix

Change Summary

• modified: ip2cc_index.pl

差異

--- a/ip2cc_index.pl
+++ b/ip2cc_index.pl
@@ -15,7 +15,7 @@ use LWP::UserAgent ();
 use HTTP::Date;
 use Data::Dumper;
 
-our $VERSION = "0.001";
+our $VERSION = "0.001001";
 
 my $download;
 my $src_spec;
@@ -493,13 +493,13 @@ if($op eq "generate"){
 
         if($address_sort){
             for(@formats){
-                write_it($reglist{$k}, "$k.$_", $formatters{$_}->($k));
+                write_it($reglist{$k}, "$prefix$k.$_", $formatters{$_}->($k));
             }
         }
         if($region_sort){
             $reglist{$k}->@* = sort_by($reglist{$k}, qw(region start));
             for(@formats){
-                write_it($reglist{$k}, "$k-ccsort.$_", $formatters{$_}->($k));
+                write_it($reglist{$k}, "$prefix$k-ccsort.$_", $formatters{$_}->($k));
             }
         }
     }