Changeset 215 for trunk/klask

Timestamp:

Feb 18, 2017, 2:25:55 PM (7 years ago)

Author:

g7moreau

Message:

• Small bug in test (forget not)

File:

• trunk/klask (modified) (2 diffs)

trunk/klask

@@ -759 +759 @@
    $sw_port_hr =~ s/^Giga/Gi/i;
 
-   return $sw_port_hr;
+   return ucfirst $sw_port_hr;
    }
 
@@ -2144 +2144 @@
    # Retrieve numeric port value
    my $port_num = snmp_get_switchport_num($session, normalize_port_human_readable($port), $verbose ? 'yes' : '');
-   die "Error : Port $port not exist on switch $switch_name\n" if $port_num =~ m/^\d+$/;
+   die "Error : Port $port not exist on switch $switch_name\n" if not $port_num =~ m/^\d+$/;
 
    my $search_portstatus = $OID_NUMBER{'portUpDown'} .'.'. $port_num;