writing: declare utf8 source of perl includes

[sheet.git] / writing-phnx.inc.pl

diff --git a/writing-phnx.inc.pl b/writing-phnx.inc.pl
index 5e0fc0440e8152e5cb6f934afc963234ff871aaf..174b9aaeb9ff1e88881d866320618276a34206f8 100644 (file)
--- a/writing-phnx.inc.pl
+++ b/writing-phnx.inc.pl
@@ -1,3 +1,5 @@
+use utf8;
+(
  latn     => [qw{ A > B  C G  D  > E  F  Y  U V W Z H  > -  I J K L M N > X  O  P >  - Q  R > S  T }],
 #runr_ys  => [qw{ ᚭ - ᛓ  ᚴ ᛆ  -  > -  ᚠ  >  > > - ᛧ ᚽ  ᚦ -  > ᛁ - ᛚ ᛙ ᚿ > -  -  - >  - -  ᚱ > ᛌ  ᛐ }], # short-twig fuþark
 #runr_m   => [qw{ ᚮ - ᛒ  ᚲ ᛆ  -  > -  ᚠ  >  > > - ᛧ ᚼ  ᚦ -  ᛁ ᛂ - ᛚ ᛘ ᚿ > -  -  - >  - -  ᚱ > ᛋ  ᛐ }], # fuþork (medieval)
@@ -17,3 +19,4 @@
  syrc     => [qw{ ܐ > ܒ  > ܓ  ܕ  > ܗ  >  >  > > ܘ ܙ ܚ  > ܛ  ܝ ҩ ܟ ܠ ܡ ܢ > ܣ  ܥ  ܦ >  ܨ ܩ  ܪ > ܫ  ܬ }],
  arab     => [qw{ ا > ب  > ج  د  ه ـ  >  >  > > و ز ح  > ط  > ي ك ل م ن > س  ع  ف >  ص ق  ر > ش  ت }],
 #arab     => [qw{ ^ ^ ^  ^ ^  ذ  ^ ^  ^  ^  ^ > ^ ^ خ  ^ ظ  ^ ^ ^ ^ ^ ^ ^ س  غ  ^ ^  ض ^  ﺭ ^ ^  ث }],
+);