Changeset 48

Timestamp:

Jul 23, 2009, 12:40:45 AM (16 years ago)

Author:

g7moreau

Message:

• Suppress perlcritic warning at level 3

Mismatched operator at line XXX, column 55. Numeric/string operators and operands should match. (Severity: 3)

File:

• trunk/klask (modified) (2 diffs)

trunk/klask

@@ -248 +248 @@
          $session{-version} = $sw->{version}   || 1;
          $session{-port}    = $sw->{snmpport}  || $DEFAULT{snmpport}  || 161;
-         if (exists $sw->{version} and $sw->{version} eq 3) {
+         if (exists $sw->{version} and $sw->{version} eq '3') {
             $session{-username} = $sw->{username} || 'snmpadmin';
             }
@@ -1106 +1106 @@
       $session{-version} = $sw->{version}   || 1;
       $session{-port}    = $sw->{snmpport}  || $DEFAULT{snmpport}  || 161;
-   if (exists $sw->{version} and $sw->{version} eq 3) {
+   if (exists $sw->{version} and $sw->{version} eq '3') {
       $session{-username} = $sw->{username} || 'snmpadmin';
       }