diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-19 13:14:55 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-19 13:14:55 +0000 |
| commit | 28c7d782d296945f1df60401d57d298ecec21bbb (patch) | |
| tree | 9c83fb285d7d13c1c5c9d79d99f14c5a31ed7d9e /perl-install | |
| parent | 89c443eaf88e7d0f1c169e66b5779a95f4aff598 (diff) | |
| download | drakx-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.pm | 2 |
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; |