X-Git-Url: https://git.donarmstrong.com/?p=reference.git;a=blobdiff_plain;f=lib%2FReference%2FRetrieve%2FPubMed.pm;h=1fc4dff76d4d0582086a8e930b34763c11d8df48;hp=81bef475cdaa565b806a3017c17ded13eb6b35d7;hb=7ec44eb25d6d5f727e751188d7418198eccd47a6;hpb=0cd432d9cb4205a2d93aa1d442d8283117971369

diff --git a/lib/Reference/Retrieve/PubMed.pm b/lib/Reference/Retrieve/PubMed.pm
index 81bef47..1fc4dff 100644
--- a/lib/Reference/Retrieve/PubMed.pm
+++ b/lib/Reference/Retrieve/PubMed.pm
@@ -189,9 +189,7 @@ sub _create_reference_from_xml($$){
 	  }
      }
      if (not defined $ref_type) {
-	  warn "Unsupported PublicationType: ".(ref($ref->{MedlineCitation}->{Article}->{PublicationTypeList}->{PublicationType})?
-						join(',',@{$ref->{MedlineCitation}->{Article}->{PublicationTypeList}->{PublicationType}}):
-						$ref->{MedlineCitation}->{Article}->{PublicationTypeList}->{PublicationType});
+	  warn "Unsupported PublicationType: ".Dumper($ref->{MedlineCitation}->{Article}->{PublicationTypeList}->{PublicationType});
 	  print STDERR Dumper($ref) if $DEBUG;
 	  $ref_type = 'article';
      }