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