less noise

lib/Univie/Utheses/API.pm

@@ -32,7 +32,7 @@ sub getPendingDoisCreateRequest
   my $self= shift;
 
   my ($code1, $res1, $info)= $self->utheses_request('GET', 'doi/get/createRequest', undef, );
-  print __LINE__, " code1=[$code1] res1=[$res1] info=[$info]\n";
+  # print __LINE__, " code1=[$code1] res1=[$res1] info=[$info]\n";
 
   # TODO: Error handling!
   (wantarray) ? ($code1, $res1, $info) : $info;