summaryrefslogtreecommitdiffstats
path: root/perl-install/printer.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printer.pm')
-rw-r--r--perl-install/printer.pm18
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/printer.pm b/perl-install/printer.pm
index 367663f9d..2e8c2b7a7 100644
--- a/perl-install/printer.pm
+++ b/perl-install/printer.pm
@@ -61,7 +61,7 @@ my $ptalinitread = 0;
#------------------------------------------------------------------------------
-sub set_prefix($) { $prefix = $_[0]; }
+sub set_prefix($) { $prefix = $_[0] }
sub default_printer_type($) { "LOCAL" }
@@ -116,7 +116,7 @@ sub set_permissions {
# We only need to set the permissions during installation to be able to
# print test pages. After installation the devfsd daemon does the business
# automatically.
- if (!$::isInstall) {return 1;}
+ if (!$::isInstall) { return 1 }
if ($owner && $group) {
run_program::rooted($prefix, "/bin/chown", "$owner.$group", $file)
|| die "Could not start chown!";
@@ -184,7 +184,7 @@ sub stop_service ($) {
# Exit silently if the service is not installed
return 1 if (!(-x "$prefix/etc/rc.d/init.d/$service"));
run_program::rooted($prefix, "/etc/rc.d/init.d/$service", "stop");
- if (($? >> 8) != 0) {return 0;} else {return 1;}
+ if (($? >> 8) != 0) { return 0 } else { return 1 }
}
sub service_starts_on_boot ($) {
@@ -213,9 +213,9 @@ sub start_service_on_boot ($) {
sub SIGHUP_daemon {
my ($service) = @_;
- if ($service eq "cupsd") {$service = "cups"};
+ if ($service eq "cupsd") { $service = "cups" };
# PDQ has no daemon, exit.
- if ($service eq "pdq") {return 1};
+ if ($service eq "pdq") { return 1 };
# CUPS needs auto-correction for its configuration
run_program::rooted($prefix, "/usr/sbin/correctcupsconfig") if ($service eq "cups");
# Name of the daemon
@@ -1078,7 +1078,7 @@ sub poll_ppd_base {
while (<PPDS>) {
chomp;
my ($ppd, $mf, $descr, $lang) = split /\|/;
- if ($ppd eq "raw") {next;}
+ if ($ppd eq "raw") { next }
my ($model, $driver);
if ($descr) {
if ($descr =~ /^([^,]+), (.*)$/) {
@@ -1507,7 +1507,7 @@ sub configure_hpoj {
$bus = "par";
$address_arg = parport_addr($device);
$address_arg =~ /^\s*-base\s+(\S+)/;
- eval ("$base_address = $1;");
+ eval ("$base_address = $1");
}
my $devdata;
@@ -1775,7 +1775,7 @@ mtools_skip_check=1
close F;
$mtoolsfmconf =~ m/^\s*DRIVES\s*=\s*\"([A-Za-z ]*)\"/m;
my $alloweddrives = lc($1);
- foreach my $letter ( "p", "q", "r", "s" ) {
+ foreach my $letter ("p", "q", "r", "s") {
if ($alloweddrives !~ /$letter/) {
$alloweddrives .= $letter;
}
@@ -2383,7 +2383,7 @@ sub addentry {
$sectionfound = 1;
}
} else {
- if (!/^\s*$/ && !/^\s*;/) {
+ if (!/^\s*$/ && !/^\s*;/) { #-#
$_ = "$entry\n$_";
$entryinserted = 1;
last;