Chessa::URI::Default: fix excessive looping

scripts/Chessa/URI/Default.pm

@@ -292,6 +292,8 @@ sub tcard($self, $t, $authority) {
             if (($x + $size + 1) < $size) {
                 $out .= $word . ' ';
                 $x += $size + 1;
+            } else {
+                last;
             }
         }
         $out .= '[...]';