diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-06-06 12:33:14 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-06-06 12:33:14 +0000 |
| commit | e37dea0c173dc14d050aae60a2bdba59f7f49eb3 (patch) | |
| tree | 1438f2bae65208cb9d3c337fc3e036f7640e1f70 /perl-install/standalone/fileshareset | |
| parent | b3ea4e6495b4e43148ab452bc093b276305f3027 (diff) | |
| download | drakx-backup-do-not-use-e37dea0c173dc14d050aae60a2bdba59f7f49eb3.tar drakx-backup-do-not-use-e37dea0c173dc14d050aae60a2bdba59f7f49eb3.tar.gz drakx-backup-do-not-use-e37dea0c173dc14d050aae60a2bdba59f7f49eb3.tar.bz2 drakx-backup-do-not-use-e37dea0c173dc14d050aae60a2bdba59f7f49eb3.tar.xz drakx-backup-do-not-use-e37dea0c173dc14d050aae60a2bdba59f7f49eb3.zip | |
fileshareset doesn't use MDK::Common
Diffstat (limited to 'perl-install/standalone/fileshareset')
| -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 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; |