next unless ref $current_port eq ""; # skip if $current port is NOT a scalar.