* Chasse aux ':' abusifs dans les strings.

1 files changed, 8 insertions, 8 deletions

diff --git a/ivybanner b/ivybanner
index 32b1abc..aa79eed 100644
--- a/ivybanner
+++ b/ivybanner
@@ -565,14 +565,14 @@ sub subdirframe {
          } elsif (@fields > 1) {
             ($category, $extinfo) = ($fields[-2], $fields[-1]);
          }
-         my $len = length($category);
-         if ($len >= $butw) {
-            $category = substr($category, 0, $butw).":".substr($category, $butw);
-         }
-         $len = length($extinfo);
-         if ($len > $butw) {
-            $extinfo = substr($extinfo, 0, $butw).":".substr($extinfo, $butw);
-         }
+         # my $len = length($category);
+         # if ($len >= $butw) {
+            # $category = substr($category, 0, $butw).":".substr($category, $butw);
+         # }
+         # $len = length($extinfo);
+         # if ($len > $butw) {
+            # $extinfo = substr($extinfo, 0, $butw).":".substr($extinfo, $butw);
+         # }
          $label = $category.":".$extinfo;
       }
       push(@cleanfilelist, [$file, $type, $label]);