config interface needs / in prompt

diff --git a/dell-switch.pl b/dell-switch.pl
index a88b71b..485d29c 100755 (executable)
--- a/dell-switch.pl
+++ b/dell-switch.pl
@@ -99,7 +99,8 @@ while() {
        } elsif ( $buff =~ m/Password:/ ) {
                send_pty "$passwd\n";
                $buff = '';
-       } elsif ( $buff =~ m/[\n\r\b]([\w\-\(\)]+)#\s*$/ ) {
+       } elsif ( $buff =~ m/[\n\r\b]([\w\-\(\)\/]+)#\s*$/ ) {
+               # config interface needs / in prompt
                my $hostname = $1;
                if ( $buff ) {
                        save_log $ip, $hostname, $command, $buff;