From a2af104801c46f60612593cac59b7bf7d7ca97ea Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Wed, 19 Feb 2025 11:04:31 +0000 Subject: [PATCH] Bug 38375: Use perl 5.10+ \R --- C4/SIP/ILS/Transaction/Checkin.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/SIP/ILS/Transaction/Checkin.pm b/C4/SIP/ILS/Transaction/Checkin.pm index ad02ad78970..56041c0b88a 100644 --- a/C4/SIP/ILS/Transaction/Checkin.pm +++ b/C4/SIP/ILS/Transaction/Checkin.pm @@ -262,7 +262,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. -- 2.48.1