summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-06-06 12:33:14 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-06-06 12:33:14 +0000
commite37dea0c173dc14d050aae60a2bdba59f7f49eb3 (patch)
tree1438f2bae65208cb9d3c337fc3e036f7640e1f70
parentb3ea4e6495b4e43148ab452bc093b276305f3027 (diff)
downloaddrakx-e37dea0c173dc14d050aae60a2bdba59f7f49eb3.tar
drakx-e37dea0c173dc14d050aae60a2bdba59f7f49eb3.tar.gz
drakx-e37dea0c173dc14d050aae60a2bdba59f7f49eb3.tar.bz2
drakx-e37dea0c173dc14d050aae60a2bdba59f7f49eb3.tar.xz
drakx-e37dea0c173dc14d050aae60a2bdba59f7f49eb3.zip
fileshareset doesn't use MDK::Common
-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 51f4625d3..3e8cfe78a 100755
--- a/perl-install/standalone/fileshareset
+++ b/perl-install/standalone/fileshareset
@@ -84,10 +84,10 @@ if ($modify) {
if ($cmd eq '--add') {
my @errs = map { eval { $_->add($dir) }; $@ } @exports;
- any { !$_ } @errs or error("already exported");
+ grep { !$_ } @errs or error("already exported");
} else {
my @errs = map { eval { $_->remove($dir) }; $@ } @exports;
- any { !$_ } @errs or error("not exported");
+ grep { !$_ } @errs or error("not exported");
}
foreach my $export (@exports) {
$export->write;
@@ -338,7 +338,7 @@ sub name_mangle {
# 4. if size is too big, shorten it
while (length > 12) {
my ($s) = m|.*?/(.*)|;
- if (length($s) > 8 && !any { /\Q$s/ } @others) {
+ if (length($s) > 8 && !grep { /\Q$s/ } @others) {
# dropping leading directories when the resulting is still long and meaningful
$_ = $s;
next;