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