From c3694beef45b66502c6248d8ef17827d17f26aab Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Wed, 8 Jun 2022 19:01:53 +0200
Subject: [PATCH] cosmetics
---
dcd.pl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/dcd.pl b/dcd.pl
index 57639e0..c597770 100755
--- a/dcd.pl
+++ b/dcd.pl
@@ -333,7 +333,7 @@ print __LINE__, " prod_doi_string=[$prod_doi_string] pfx=[$pfx] ns=[$ns] nr=[$nr
if ($register_live)
{
- my $reg_obj= new DataCite::API (config => $reg_cnf, 'xmode' => 'test');
+ my $reg_obj= new DataCite::API (config => $reg_cnf, xmode => 'test');
unless ($reg_obj->register_doi ($prod_doi_string, $prod_xml_new, $repo_url))
{
print "ATTN: register_doi doi=[$prod_doi_string] was not ok\n";
--
GitLab