From 6d96b7109f1319b27218ab3ce34b3e150fb42a8a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 14 Oct 2004 06:13:33 +0000 Subject: cleanup --- perl-install/standalone/fileshareset | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'perl-install/standalone/fileshareset') diff --git a/perl-install/standalone/fileshareset b/perl-install/standalone/fileshareset index 346426f62..6d321c7ac 100755 --- a/perl-install/standalone/fileshareset +++ b/perl-install/standalone/fileshareset @@ -338,15 +338,13 @@ sub name_mangle { if (length($s) > 8 && !grep { /\Q$s/ } @others) { # dropping leading directories when the resulting is still long and meaningful $_ = $s; - next; + } else { + s|(.*)[0-9#\-_!/]|$1| + # inspired by "Christian Brolin" "Long names are doom" on comp.lang.functional + || s|(.+)[AEIOU]|$1|# allButFirstVowels + || s|(.*)(.)\2|$1$2| # adjacentDuplicates + || s|(.*).|$1|; # booh, :'-( } - s|(.*)[0-9#\-_!/]|$1| and next; - - # inspired by "Christian Brolin" "Long names are doom" on comp.lang.functional - s|(.+)[AEIOU]|$1| and next; # allButFirstVowels - s|(.*)(.)\2|$1$2| and next; # adjacentDuplicates - - s|(.*).|$1|; # booh, :'-( } # 5. remove "/"s still there -- cgit v1.2.1