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:
parent
ee703aba86
commit
3967f4cbdb
|
|
@ -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.
|
||||
|
|
|
|||
Loading…
Reference in New Issue