summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-01-23 15:04:58 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-01-23 15:04:58 +0000
commit0e89c143f28b2c22d20feba456392ddaa8dbff37 (patch)
treec54573c8cca273e30193f0157c1ea476bec07c04 /perl-install
parentdb833c1f6c87b6d4f4b54e7edf72f7a7121a2430 (diff)
downloaddrakx-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-xperl-install/standalone/fileshareset6
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;