make sure stop has length too

[reference.git] / lib / Reference / Retrieve / PubMed.pm

diff --git a/lib/Reference/Retrieve/PubMed.pm b/lib/Reference/Retrieve/PubMed.pm
index 0ecc842ee1d068839004117d5a0336e09811a77b..9c477756bac22d47c7304ffa7889d461674b6bc8 100644 (file)
--- a/lib/Reference/Retrieve/PubMed.pm
+++ b/lib/Reference/Retrieve/PubMed.pm
@@ -362,6 +362,9 @@ sub _fix_medline_journal($$$;){
               $journal{lc($2)} = $3;
          }
   }
+     if (ref $ref->{JrXml}{Serial}{ISSN} ne 'ARRAY') {
+         $ref->{JrXml}{Serial}{ISSN} = [$ref->{JrXml}{Serial}{ISSN}];
+     }
      my $print_issn = $ref->{JrXml}{Serial}{ISSN}[0]{IssnType} eq 'Print' ? 0 : 1;
      my @journal_entry =
          (title       => $ref->{JrXml}{Serial}{Title},
@@ -420,7 +423,7 @@ sub _fix_medline_pages($){
      if (not defined $start) {
          ($start) = $pagination =~ /(\d+)/
      }
-     if ($start > $stop and defined $stop) {
+     if ($start > $stop and defined $stop and length($stop)) {
          # this must be a reduced page listing; fix it up
          $stop+=$start - $start % 10 ** (int(log($stop)/log(10))+1);
      }