cosmetics

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";