summaryrefslogtreecommitdiffstats
path: root/perl-install
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
parent89c443eaf88e7d0f1c169e66b5779a95f4aff598 (diff)
downloaddrakx-28c7d782d296945f1df60401d57d298ecec21bbb.tar
drakx-28c7d782d296945f1df60401d57d298ecec21bbb.tar.gz
drakx-28c7d782d296945f1df60401d57d298ecec21bbb.tar.bz2
drakx-28c7d782d296945f1df60401d57d298ecec21bbb.tar.xz
drakx-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')
-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;