Switch to httpbingo.org instead of httpbin.org

Author: bingos

CHANGES

@@ -1,3 +1,7 @@
+1.08        Mon Apr 28 17:06:58 2025
+
+* Switched from httpbin.org to httpbingo.org
+
 1.06        Mon Apr 28 16:49:13 2025
 
 * httpbin.org is being a bit unreliable at the moment

lib/File/Fetch.pm

@@ -23,7 +23,7 @@ use vars    qw[ $VERBOSE $PREFER_BIN $FROM_EMAIL $USER_AGENT
                 $FTP_PASSIVE $TIMEOUT $DEBUG $WARN $FORCEIPV4
             ];
 
-$VERSION        = '1.06';
+$VERSION        = '1.08';
 $VERSION        = eval $VERSION;    # avoid warnings with development releases
 $PREFER_BIN     = 0;                # XXX TODO implement
 $FROM_EMAIL     = '[email protected]';

t/01_File-Fetch.t

@@ -19,7 +19,7 @@ $IPC::Cmd::DEBUG    = $IPC::Cmd::DEBUG      = 1 if $ARGV[0];
 
 $File::Fetch::FORCEIPV4 = $File::Fetch::FORCEIPV4 = 1;
 
-$File::Fetch::TIMOUT = $File::Fetch::TIMEOUT = 30;
+$File::Fetch::TIMEOUT = $File::Fetch::TIMEOUT = 30;
 
 unless( $ENV{PERL_CORE} ) {
     warn qq[
@@ -204,15 +204,15 @@ for my $entry (@map) {
 ### Heuristics
 {
   require IO::Socket::INET;
-  my $sock = IO::Socket::INET->new( PeerAddr => 'httpbin.org', PeerPort => 80, Timeout => 20 )
+  my $sock = IO::Socket::INET->new( PeerAddr => 'httpbingo.org', PeerPort => 80, Timeout => 20 )
      or $heuristics{http} = 0;
 }
 
 ### http:// tests ###
-{   for my $uri ( 'http://httpbin.org',
-                  'http://httpbin.org/html',
-                  'http://httpbin.org/response-headers?q=1',
-                  'http://httpbin.org/response-headers?q=1&y=2',
+{   for my $uri ( 'http://httpbingo.org',
+                  'http://httpbingo.org/html',
+                  'http://httpbingo.org/response-headers?q=1',
+                  'http://httpbingo.org/response-headers?q=1&y=2',
                   #'http://www.cpan.org/index.html?q=1&y=2',
                   #'http://user:[email protected]/basic-auth/user/passwd',
     ) {