Bug 38375: Use perl 5.10+ \R

Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
(cherry picked from commit 006485a036)
Signed-off-by: Paul Derscheid <paul.derscheid@lmscloud.de>
This commit is contained in:
Martin Renvoize 2025-02-19 11:04:31 +00:00 committed by Paul Derscheid
parent ee703aba86
commit 3967f4cbdb
No known key found for this signature in database
GPG Key ID: C25F9FD44CED595B
1 changed files with 1 additions and 1 deletions

View File

@ -261,7 +261,7 @@ sub _get_sort_bin {
# Get the mapping and split on newlines
my $raw_map = C4::Context->preference('SIP2SortBinMapping');
return unless $raw_map;
@lines = split /[\r\n]+/, $raw_map;
@lines = split /\R/, $raw_map;
}
# Iterate over the mapping. The first hit wins.