From 7ec44eb25d6d5f727e751188d7418198eccd47a6 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Fri, 19 Dec 2014 10:37:52 -0800 Subject: [PATCH] just use Dumper to dump the publication type instead of guessing --- lib/Reference/Retrieve/PubMed.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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'; } -- 2.39.2