From 0e89c143f28b2c22d20feba456392ddaa8dbff37 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 23 Jan 2002 15:04:58 +0000
Subject: name mangling max length set to 12

---
 perl-install/standalone/fileshareset | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone/fileshareset')

diff --git a/perl-install/standalone/fileshareset b/perl-install/standalone/fileshareset
index 81f139ab2..8013477aa 100755
--- a/perl-install/standalone/fileshareset
+++ b/perl-install/standalone/fileshareset
@@ -334,9 +334,9 @@ sub name_mangle {
     $_ .= "_" while length($_) < 3;
 
     # 4. if size is too big, shorten it
-    while (length > 15) {
+    while (length > 12) {
 	my ($s) = m|.*?/(.*)|;
-	if (length($s) > 10 && !grep { /\Q$s/ } @others) {
+	if (length($s) > 8 && !grep { /\Q$s/ } @others) {
 	    # dropping leading directories when the resulting is still long and meaningful
 	    $_ = $s;
 	    next;
@@ -358,7 +358,7 @@ sub name_mangle {
     my $conflicts = qr|^($l)$|;
     if (/$conflicts/) {
       A: while (1) {
-	    for (my $nb = 1; length("$_$nb") <= 15; $nb++) {
+	    for (my $nb = 1; length("$_$nb") <= 12; $nb++) {
 		if ("$_$nb" !~ /$conflicts/) {
 		    $_ = "$_$nb";
 		    last A;
-- 
cgit v1.2.1