summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/detect.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-19 14:14:22 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-19 14:14:22 +0000
commit78dd1c5b452725709f60ea017882031a4cab38e5 (patch)
tree8d17ee5946d711cf4e55ecc7123b6c04c1f773e9 /perl-install/printer/detect.pm
parentb6c81a431dc681db51eaf22eaf090c280b56d9f4 (diff)
downloaddrakx-78dd1c5b452725709f60ea017882031a4cab38e5.tar
drakx-78dd1c5b452725709f60ea017882031a4cab38e5.tar.gz
drakx-78dd1c5b452725709f60ea017882031a4cab38e5.tar.bz2
drakx-78dd1c5b452725709f60ea017882031a4cab38e5.tar.xz
drakx-78dd1c5b452725709f60ea017882031a4cab38e5.zip
perl_checker fixes
Diffstat (limited to 'perl-install/printer/detect.pm')
-rw-r--r--perl-install/printer/detect.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/printer/detect.pm b/perl-install/printer/detect.pm
index 61c39522d..0839a6ad6 100644
--- a/perl-install/printer/detect.pm
+++ b/perl-install/printer/detect.pm
@@ -95,7 +95,7 @@ sub whatUsbport() {
};
close $PORT;
# Remove non-printable characters
- $idstr =~ tr/[\x00-\x1f]/\./;
+ $idstr =~ tr/[\x00-\x1f]/./;
# If we do not find any item in the ID string, we try to read
# it again
my $itemfound = 0;
@@ -136,7 +136,7 @@ sub whatUsbport() {
}
# Nothing found? Try again if not in the third attempt,
# in the third attempt always accept.
- next if !$itemfound && ($j < 3);
+ next if !$itemfound && $j < 3;
# Was there a manufacturer and a model in the string?
if ($manufacturer eq "" || $model eq "") {
$manufacturer = "";
@@ -203,7 +203,7 @@ sub whatNetPrinter {
undef $modelinfo;
- } elsif ($line =~ m/^\s*(\d+)\/\S+\s+open\s+/i) {
+ } elsif ($line =~ m!^\s*(\d+)/\S+\s+open\s+!i) {
next if $ip eq "";
$port = $1;
@@ -260,7 +260,7 @@ sub getNetworkInterfaces {
if ($readline =~ /^(\S+)\s/) {
my $dev = $1;
if ($dev ne "lo") {
- push (@interfaces, $dev);
+ push @interfaces, $dev;
}
}
}
@@ -291,7 +291,7 @@ sub getIPsOfLocalMachine {
if ($readline =~ /^(\S+)\s/) {
my $dev = $1;
# ... for a real network (not lo = localhost)
- $dev_is_realnet = ($dev ne 'lo');
+ $dev_is_realnet = $dev ne 'lo';
# delete previous address
$current_ip = "";
}