From d5c4ba23bf2fb21f5bfb5b21bd9f7115f09aed57 Mon Sep 17 00:00:00 2001
From: satomichan <git-kitte.20250824@satomichan.jp>
Date: Tue, 24 Mar 2026 23:56:27 +0900
Subject: [PATCH] =?utf8?q?Perl=E7=89=88=E3=81=AE=E8=AA=AD=E3=81=BF?=
 =?utf8?q?=E8=BE=BC=E3=81=BF=E3=81=AB,=20HTTP=20=E3=81=A7=E3=81=AF?=
 =?utf8?q?=E3=81=AA=E3=81=8F=E7=9B=B4=E6=8E=A5=E3=83=95=E3=82=A1=E3=82=A4?=
 =?utf8?q?=E3=83=AB=E3=82=92=E8=AA=AD=E3=82=80=E3=82=88=E3=81=86=E3=81=AB.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 misc/make-tel2ma.js.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/misc/make-tel2ma.js.pl b/misc/make-tel2ma.js.pl
index b60c072..da8bfc4 100755
--- a/misc/make-tel2ma.js.pl
+++ b/misc/make-tel2ma.js.pl
@@ -5,15 +5,16 @@
 use strict;
 use warnings;
 
-my $URL = 'https://satomichan.jp/gitweb/?p=tel2ma/.git;a=blob_plain;f=tel2ma.pl';
+use FindBin;
+chdir $FindBin::Bin or die;
 
 header();
 
-open(my $wget, '-|', "wget '$URL' -q -O -") or die;
+open(my $PL, '../tel2ma.pl') or die;
 
 print "function get_ma_info(tel) {\n";
 
-foreach my $line (<$wget>) {
+foreach my $line (<$PL>) {
     next unless $line =~ /^__DATA__/ .. 1;
     next if $line =~ /^__DATA__/;
 
@@ -65,7 +66,7 @@ __DATA__
 tel2ma.js 日本国内電話番号 -> 市外局番・MA・市町村 取得プログラム
 
 
-Copyright 2025 FUKUDA Satomi (https://satomichan.jp/about_tel2ma)
+Copyright 2025-2026 FUKUDA Satomi (https://satomichan.jp/about_tel2ma)
 
 Licensed under the Apache License, Version 2.0 (the “License”);
 you may not use this file except in compliance with the License.
-- 
2.43.0