Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Projets publics
Sympa
Commits
e0f4bf7b
Commit
e0f4bf7b
authored
Dec 20, 2020
by
IKEDA Soji
Browse files
Drop support for Perl prior to 5.16 (#1030)
parent
d0ecd886
Changes
2
Hide whitespace changes
Inline
Side-by-side
cpanfile
View file @
e0f4bf7b
...
...
@@ -3,7 +3,7 @@
# Minimum version of Perl required.
# Notation suggested on https://metacpan.org/pod/Carton#PERL-VERSIONS
requires 'perl', '5.1
0.1
';
requires 'perl', '5.1
6.0
';
# This module provides zip/unzip for archive and shared document download/upload
requires 'Archive::Zip', '>= 1.05';
...
...
src/lib/Sympa/Tools/Text.pm
View file @
e0f4bf7b
...
...
@@ -29,6 +29,7 @@ package Sympa::Tools::Text;
use
strict
;
use
warnings
;
use
feature
qw(fc)
;
use
Encode
qw()
;
use
English
qw(-no_match_vars)
;
use
Encode::MIME::
Header
;
# 'MIME-Q' encoding.
...
...
@@ -37,8 +38,6 @@ use MIME::EncWords;
use
Text::
LineFold
;
use
Unicode::
GCString
;
use
URI::
Escape
qw()
;
use
if
(
$]
<
5.016
),
qw(Unicode::CaseFold fc)
;
use
if
(
5.016
<=
$]
),
qw(feature fc)
;
BEGIN
{
eval
'
use Unicode::Normalize qw()
';
}
BEGIN
{
eval
'
use Unicode::UTF8 qw()
';
}
...
...
@@ -286,7 +285,6 @@ sub foldcase {
my
$str
=
shift
;
return
''
unless
defined
$str
and
length
$str
;
# Perl 5.16.0 and later have built-in fc(). Earlier uses Unicode::CaseFold.
return
Encode::
encode_utf8
(
fc
(
Encode::
decode_utf8
(
$str
)));
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment