just use Dumper to dump the publication type instead of guessing

diff --git a/lib/Reference/Retrieve/PubMed.pm b/lib/Reference/Retrieve/PubMed.pm
index 81bef475cdaa565b806a3017c17ded13eb6b35d7..1fc4dff76d4d0582086a8e930b34763c11d8df48 100644 (file)
--- 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';
      }