summaryrefslogtreecommitdiffstats
path: root/perl-install/network/nfs.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-19 13:14:55 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-19 13:14:55 +0000
commit28c7d782d296945f1df60401d57d298ecec21bbb (patch)
tree9c83fb285d7d13c1c5c9d79d99f14c5a31ed7d9e /perl-install/network/nfs.pm
parent89c443eaf88e7d0f1c169e66b5779a95f4aff598 (diff)
downloaddrakx-backup-do-not-use-28c7d782d296945f1df60401d57d298ecec21bbb.tar
drakx-backup-do-not-use-28c7d782d296945f1df60401d57d298ecec21bbb.tar.gz
drakx-backup-do-not-use-28c7d782d296945f1df60401d57d298ecec21bbb.tar.bz2
drakx-backup-do-not-use-28c7d782d296945f1df60401d57d298ecec21bbb.tar.xz
drakx-backup-do-not-use-28c7d782d296945f1df60401d57d298ecec21bbb.zip
do not drop return values from regexp but use them to ensure we do not
reuse capture buffers from previous one, which is really bad and trully buggy
Diffstat (limited to 'perl-install/network/nfs.pm')
-rw-r--r--perl-install/network/nfs.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/network/nfs.pm b/perl-install/network/nfs.pm
index ca6d0f019..8d15af3b8 100644
--- a/perl-install/network/nfs.pm
+++ b/perl-install/network/nfs.pm
@@ -59,7 +59,7 @@ sub find_exports {
run_program::raw({ timeout => 1 }, "showmount", '>', \@l, "-e", $server->{ip} || $server->{name});
shift @l; #- drop first line
- map { /(\S+)\s*(\S+)/; { name => $1, comment => $2, server => $server } } @l;
+ map { +{ name => $1, comment => $2, server => $server } if /(\S+)\s*(\S+)/ } @l;
}
1;