Changeset 6057

Timestamp:

02/02/08 22:36:43 (5 years ago)

Author:

tokuhirom

Message:

r7018@skinny (orig r6050): tokuhirom | 2008-02-02 22:24:49 +0900
命名規則変更の術

Location:

lang/perl/Geo-Coordinates-Converter-iArea/trunk

Files:

• MANIFEST (modified) (1 diff)
• lib/Geo/Coordinates/Converter/iArea.pm (modified) (1 diff)
• share/area2center.cdb (deleted)
• share/areacode2center.cdb (added)
• tools/create_cdb.pl (modified) (3 diffs)

lang/perl/Geo-Coordinates-Converter-iArea/trunk/MANIFEST

@@ -24 +24 @@
 META.yml
 README
-share/area2center.cdb
+share/areacode2center.cdb
 share/meshcode2areacode.cdb
 t/00_compile.t

lang/perl/Geo-Coordinates-Converter-iArea/trunk/lib/Geo/Coordinates/Converter/iArea.pm

@@ -11 +11 @@
     my ($class, $areacode) = @_;
 
-    my $file = dist_file('Geo-Coordinates-Converter-iArea', 'area2center.cdb');
+    my $file = dist_file('Geo-Coordinates-Converter-iArea', 'areacode2center.cdb');
     my $cdb = CDB_File->TIEHASH($file);
     if ($cdb->EXISTS($areacode)) {

lang/perl/Geo-Coordinates-Converter-iArea/trunk/tools/create_cdb.pl

@@ -14 +14 @@
 }
 
-my $area2center = CDB_File->new(File::Spec->catfile('share', 'area2center.cdb'), "area2center.$$") or die $!;
+my $areacode2center = CDB_File->new(File::Spec->catfile('share', 'areacode2center.cdb'), "areacode2center.$$") or die $!;
 my $meshcode2areacode = CDB_File->new(File::Spec->catfile('share', 'meshcode2areacode.cdb'), "meshcode2areacode.$$") or die $!;
 
@@ -25 +25 @@
 
     my $areacode = $areacode_high . $areacode_low;
-    $area2center->insert($areacode, join(",", ms2degree(($n+$s)/2), ms2degree(($e+$w)/2)));
+    $areacode2center->insert($areacode, join(",", ms2degree(($n+$s)/2), ms2degree(($e+$w)/2)));
 
     for my $meshcode (@mesh) {
@@ -32 +32 @@
 });
 
-$area2center->finish;
+$areacode2center->finish;
 $meshcode2areacode->finish;