comparison lib/hmdb.pm @ 17:49f87ddb2c78 draft

Master branch Updating - - Fxx
author fgiacomoni
date Wed, 23 Jan 2019 02:57:07 -0500
parents beb9619263b0
children b5a1d5e43685
comparison
equal deleted inserted replaced
16:8b2fbd449ffd 17:49f87ddb2c78
243 @page = split ( /\n/, $res->decoded_content ) ; 243 @page = split ( /\n/, $res->decoded_content ) ;
244 $status_line = 'OK' ; 244 $status_line = 'OK' ;
245 } else { 245 } else {
246 $status_line = $res->status_line ; 246 $status_line = $res->status_line ;
247 ($status_line) = ($status_line =~ /(\d+)/); 247 ($status_line) = ($status_line =~ /(\d+)/);
248 warn "\tHMDB service issue !! the server returned a $status_line HTTP error\n" ; 248 warn "\t[HMDB service issue !! the server returned a $status_line HTTP error]" ;
249 } 249 }
250 250
251 251
252 return (\@page, $status_line) ; 252 return (\@page, $status_line) ;
253 } 253 }