http://coderepos.org/share/wiki/Tiarra

tiarra.diff

Index: module/Auto/FetchTitle.pm
===================================================================
--- module/Auto/FetchTitle.pm   (revision 39278)
+++ module/Auto/FetchTitle.pm   (working copy)
@@ -521,7 +521,7 @@
   my $anchor;
   ($url, $anchor) = split(/#/, $url, 2);
   my $recv_limit = $this->config->recv_limit || $DEFAULT_RECV_LIMIT;
-  $this->_debug($full_ch_name, "recv_limit: $recv_limit");
+  $DEBUG and $this->_debug($full_ch_name, "recv_limit: $recv_limit");

   my $req = {
     old          => undef,    # undef for first (non-redirect) request.
@@ -2243,18 +2243,22 @@
     [ 0, 0, '10.0.0.0/8',       'Private network',                     'RFC 1918', ],
     # obsoletes by RFC5735
     #[ 0, 0, '14.0.0.0/8',       'Public data networks',                'RFC 1700', ],
-    [ 0, 0, '39.0.0.0/8',       'Reserved',                            'RFC 1797', ],
+    # obsoletes by RFC5735
+    #[ 0, 0, '39.0.0.0/8',       'Reserved',                            'RFC 1797', ],
     [ 0, 0, '127.0.0.0/8',      'Loopback',                            'RFC 3330', ],
-    [ 0, 0, '128.0.0.0/16',     'Reserved (IANA)',                     'RFC 3330', ],
+    # obsoletes by RFC5735
+    #[ 0, 0, '128.0.0.0/16',     'Reserved (IANA)',                     'RFC 3330', ],
     [ 0, 0, '169.254.0.0/16',   'Link-Local',                          'RFC 3927', ],
     [ 0, 0, '172.16.0.0/12',    'Private network',                     'RFC 1918', ],
-    [ 0, 0, '191.255.0.0/16',   'Reserved (IANA)',                     'RFC 3330', ],
+    # obsoletes by RFC5735
+    #[ 0, 0, '191.255.0.0/16',   'Reserved (IANA)',                     'RFC 3330', ],
     [ 0, 0, '192.0.0.0/24',     'Reserved (IANA)',                     'RFC 3330', ],
     [ 0, 0, '192.0.2.0/24',     'Documentation and example code',      'RFC 3330', ],
     [ 0, 0, '192.88.99.0/24',   'IPv6 to IPv4 relay',                  'RFC 3068', ],
     [ 0, 0, '192.168.0.0/16',   'Private network',                     'RFC 1918', ],
     [ 0, 0, '198.18.0.0/15',    'Network benchmark tests',             'RFC 2544', ],
-    [ 0, 0, '223.255.255.0/24', 'Reserved (IANA)',                     'RFC 3330', ],
+    # obsoletes by RFC5735
+    #[ 0, 0, '223.255.255.0/24', 'Reserved (IANA)',                     'RFC 3330', ],
     [ 0, 0, '255.255.255.255',  'Broadcast',                           '',         ],
     [ 0, 0, '224.0.0.0/4',      'Multicasts (former Class D network)', 'RFC 3171', ],
     [ 0, 0, '240.0.0.0/4',      'Reserved (former Class E network)',   'RFC 1700', ],