diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-01-23 15:04:58 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-01-23 15:04:58 +0000 |
| commit | 0e89c143f28b2c22d20feba456392ddaa8dbff37 (patch) | |
| tree | c54573c8cca273e30193f0157c1ea476bec07c04 /perl-install | |
| parent | db833c1f6c87b6d4f4b54e7edf72f7a7121a2430 (diff) | |
| download | drakx-0e89c143f28b2c22d20feba456392ddaa8dbff37.tar drakx-0e89c143f28b2c22d20feba456392ddaa8dbff37.tar.gz drakx-0e89c143f28b2c22d20feba456392ddaa8dbff37.tar.bz2 drakx-0e89c143f28b2c22d20feba456392ddaa8dbff37.tar.xz drakx-0e89c143f28b2c22d20feba456392ddaa8dbff37.zip | |
name mangling max length set to 12
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/fileshareset | 6 |
1 files changed, 3 insertions, 3 deletions
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; |