summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/isdn.pm2
-rw-r--r--perl-install/network/modem.pm4
-rw-r--r--perl-install/network/network.pm2
-rw-r--r--perl-install/network/tools.pm2
4 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index f9c8bd409..4bdc83990 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -59,7 +59,7 @@ We recommand the light configuration.
my $p = pkgs::packageByName($in->{packages}, $rmpackage);
$p && $p->flag_selected and pkgs::unselectPackage($in->{packages}, $p);
}
- run_program::rooted($prefix, "rpm", "-e", "$rmpackage");
+ run_program::rooted($prefix, "rpm", "-e", $rmpackage);
$in->do_pkgs->install($instpackage, if_($isdn->{speed} =~ /128/, 'ibod'), 'isdn4k-utils');
my $light = $e =~ /light/ ? 1 : 0;
isdn_write_config_backend($isdn, $light, $netc);
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 046ebbf8d..c90725081 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -70,13 +70,13 @@ sub modem_detect_backend {
$mouse ||={};
$mouse->{device} ||= readlink "/dev/mouse";
my $serdev = arch() =~ /ppc/ ? "macserial" : "serial";
- eval { modules::load("$serdev") };
+ eval { modules::load($serdev) };
detect_devices::probeSerialDevices();
foreach ('modem', map { "ttyS$_" } (0..7)) {
next if $mouse->{device} =~ /$_/;
next unless -e "/dev/$_";
- detect_devices::hasModem("/dev/$_") and $modem->{device} = "$_", last;
+ detect_devices::hasModem("/dev/$_") and $modem->{device} = $_, last;
}
#- add an alias for macserial on PPC
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 9ae4e3f24..880b23aa6 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -153,7 +153,7 @@ sub add2hosts {
open F, ">$file" or die "cannot write $file: $!";
while (my ($ip, $v) = each %l) {
$ip or next;
- print F "$ip";
+ print F $ip;
if ($v =~ /^\s/) {
print F $v;
} else {
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index c2a1b28cd..f43406c80 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -22,7 +22,7 @@ sub write_cnx_script {
'#!/bin/bash
' . if_(!$netc->{at_boot}, 'if [ "x$1" == "x--boot_time" ]; then exit; fi
') . $netc->{internet_cnx}{$netc->{internet_cnx_choice}}{$_});
- chmod 0755, "$prefix" . $_;
+ chmod 0755, "$prefix$_";
}
}
}