fix HTTP->HTTPS

bioperl · Sep 12, 2016 · ed058b3 · ed058b3
1 parent 025c1c0
commit ed058b3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/lib/Bio/Tools/EUtilities/EUtilParameters.pm b/lib/Bio/Tools/EUtilities/EUtilParameters.pm
@@ -427,7 +427,7 @@ sub get_parameters {
  Usage   : $string = $pobj->to_string;
  Function: Returns string (URL only in this case)
  Returns : String (URL only for now)
- Args    : [optional] 'all'; build URI::http using all parameters
+ Args    : [optional] 'all'; build URI::https using all parameters
            Default : Builds based on allowed parameters (presence of history data
            or eutil type in %MODE).
  Note    : Changes state of object.  Absolute string
@@ -604,7 +604,7 @@ sub id_file {
 =cut
 
 {
-    my $HOSTBASE = 'http://eutils.ncbi.nlm.nih.gov/entrez/eutils/';
+    my $HOSTBASE = 'https://eutils.ncbi.nlm.nih.gov/entrez/eutils/';
 
     sub url_base_address {
         my ($self, $address) = @_;

diff --git a/lib/Bio/Tools/EUtilities/Link/UrlLink.pm b/lib/Bio/Tools/EUtilities/Link/UrlLink.pm
@@ -80,7 +80,7 @@ sub get_url {
     my $self = shift;
     # fix Entrz LinkOut URLS without the full URL
     if ($self->{'_url'} && $self->{'_url'} =~ m{^/}) {
-        $self->{'_url'} = 'http://www.ncbi.nih.gov'.$self->{'_url'};
+        $self->{'_url'} = 'https://www.ncbi.nih.gov'.$self->{'_url'};
     }
     return $self->{'_url'};
 }