From 1d11c7e501dc0b457453b74e01c0453450090826 Mon Sep 17 00:00:00 2001 From: Gerhard Gonter <ggonter@gmail.com> Date: Fri, 30 Oct 2020 15:18:48 +0100 Subject: [PATCH] allow configuration of separator for various suffix formats, mostly used by OJS --- dcd.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/dcd.pl b/dcd.pl index 8464e58..4db3c83 100755 --- a/dcd.pl +++ b/dcd.pl @@ -374,7 +374,9 @@ sub get_all_urls sub split_doi_string { my $doi= shift; # e.g. 10.25365/phaidra.1 - my $id_separator= shift || '.'; + my $id_separator= shift; + + $id_separator= qr(\.) if (!$id_separator || $id_separator eq '.'); my ($pfx, $sfx)= split ('/', $doi, 2); my ($ns, $nr)= split ($id_separator, $sfx, 2); -- GitLab