Don't worry!
HTTP::Tiny will rot bits as webmasters implement HTTPS Everywhere! except for the backlash of hip retro unencrypted sites! Then one day HTTP::Tiny, after years of recommendations followed by years of disillusionment
[YOU ARE HERE] followed by years of disparagement, will be unceremoniously deprecated and REMOVED FROM THE PERL CORE!
If it could happen to CGI, it will probably happen to HTTP::Tiny 🔋🗑
UNLESS someone rescues HTTP::Tiny to evolve some sort of fallback
functionality along the lines of HTTP::Any like this
silly core one-liner,
when fed an https url on an https-less perl,
will fail and fallback on a random selection
of wget or curl (or, like, all known https
clients on every operating system?):
perl -MIPC::Cmd=can_run,run -MHTTP::Tiny -le'@c=({wget=>"wget -O-"},{c
+url=>"curl"});$u=shift;$r=HTTP::Tiny->new->get($u);if($r->{status}==5
+99){($a,$b)=%{$c[rand@c]};if(my $cmd=can_run($a)){if(scalar run(comma
+nd=>"$b $u",buffer=>\my $data)){print"$data\n$cmd"}}}else{print"$r->{
+content}\ntiny"}' "https://www.perlmonks.org"
perl
-MIPC::Cmd=can_run,run
-MHTTP::Tiny
-le'
@c=({wget=>"wget -O-"},{curl=>"curl"});
$u=shift;
$r=HTTP::Tiny->new->get($u);
if($r->{status}==599){
($a,$b)=%{$c[rand@c]};
if(my $cmd=can_run($a)){
if(scalar run(command=>"$b $u",buffer=>\my $data){
print"$data\n$cmd"
}
}
}
else{print"$r->{content}\ntiny"}'
"https://www.perlmonks.org"
Let's fix it!