ソースを参照

Enable (assume) UTF-8 in saturnin_urimagic

Alois Mahdal 8 年 前
コミット
9e2ff2f57e
共有1 個のファイルを変更した4 個の追加4 個の削除を含む
  1. 4
    4
      src/ffoo/saturnin_urimagic.sh

+ 4
- 4
src/ffoo/saturnin_urimagic.sh ファイルの表示

@@ -86,7 +86,7 @@ __saturnin_urimagic__flt_exps() {
86 86
     # Hack expressions like bug = 123 out of the text
87 87
     #
88 88
     sed -e 's/(\d)\</\n/;' \
89
-      | perl -ne '
89
+      | perl -CS -ne '
90 90
             next unless m/\b([a-zA-Z]\w*\s*=\s*\w+)\b/;
91 91
             print "$1\n";
92 92
         ' \
@@ -99,7 +99,7 @@ __saturnin_urimagic__flt_ids() {
99 99
     # Hack doer-like id's (ID#123) out of the text
100 100
     #
101 101
     tr ' ' '\n' \
102
-      | perl -ne '
102
+      | perl -CS -ne '
103 103
             next unless m/\b([a-zA-Z]\w*#\w+)\b/;
104 104
             print "$1\n";
105 105
         ' \
@@ -127,8 +127,8 @@ __saturnin_urimagic__flt_uris() {
127 127
     # Hack URIs out of the text.
128 128
     #
129 129
     tr ' ' '\n' \
130
-      | perl -ne '
131
-            next unless m|(\bhttps?://[[:alnum:]_:/.?#&+,%@=;~-]+)\b|;
130
+      | perl -CS -ne '
131
+            next unless m|(\bhttps?://[[:alnum:]_:/.?#&+,%@=;~-]+)\b|u;
132 132
             print "$1\n";
133 133
         '
134 134
 }