From 51039844febe1dc7c3f7ac5b3409f00e1679ab76 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 31 Jul 2002 15:18:09 +0000 Subject: replace "$foo" with $foo --- perl-install/any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index e0dfb62d1..5500f9766 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -887,7 +887,7 @@ sub set_login_serial_console { my ($prefix, $port, $speed) = @_; my $line = "s$port:12345:respawn:/sbin/getty ttyS$port DT$speed ansi\n"; - substInFile { s/^s$port:.*//; $_ = "$line" if eof } "$prefix/etc/inittab"; + substInFile { s/^s$port:.*//; $_ = $line if eof } "$prefix/etc/inittab"; } -- cgit v1.2.1