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$_";
 	}
     }
 }