|
@@ -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
|
}
|