summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-11-06 10:37:18 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-11-06 10:37:18 +0000
commit9f0124c4939104748f33559a2efc017d6f41b369 (patch)
treef53cd6bf4a4ede7c2bd49aba78576ac112cd9da5 /perl-install/network
parentd11b94c6f82a12bd0cc74843a5a5af59e82aeb56 (diff)
downloaddrakx-9f0124c4939104748f33559a2efc017d6f41b369.tar
drakx-9f0124c4939104748f33559a2efc017d6f41b369.tar.gz
drakx-9f0124c4939104748f33559a2efc017d6f41b369.tar.bz2
drakx-9f0124c4939104748f33559a2efc017d6f41b369.tar.xz
drakx-9f0124c4939104748f33559a2efc017d6f41b369.zip
escaped strings fixes
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/modem.pm2
-rw-r--r--perl-install/network/nfs.pm4
2 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 98dadd2da..f6978adea 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -141,7 +141,7 @@ END
if ($replaced) {
output($secrets, @l);
} else {
- append_to_file($secrets, "$toreplace{login} ppp0 \"$toreplace{passwd}\"\n");
+ append_to_file($secrets, qq($toreplace{login} ppp0 "$toreplace{passwd}"\n));
}
#- restore access right to secrets file, just in case.
chmod 0600, $secrets;
diff --git a/perl-install/network/nfs.pm b/perl-install/network/nfs.pm
index dae09af1b..20c9055f3 100644
--- a/perl-install/network/nfs.pm
+++ b/perl-install/network/nfs.pm
@@ -35,8 +35,8 @@ sub check {
}
sub find_servers {
- my $pid2 = open(my $F2, "rpcinfo-flushed -b mountd 2 |");
- my $pid3 = open(my $F3, "rpcinfo-flushed -b mountd 3 |");
+ open(my $F2, "rpcinfo-flushed -b mountd 2 |");
+ open(my $F3, "rpcinfo-flushed -b mountd 3 |");
common::nonblock($F2);
common::nonblock($F3);