diff options
Diffstat (limited to 'perl-install/network')
| -rw-r--r-- | perl-install/network/modem.pm | 2 | ||||
| -rw-r--r-- | perl-install/network/nfs.pm | 4 |
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); |