fixup the nonsense I just committed.

perleval was a bad idea.   There are probably safer ways to accomplish
this.  Fixed the enable prompts.

Author: rfdrake

lib/App/Tel.pm

@@ -411,7 +411,7 @@ sub profile {
     $profile->{logoutcmd} ||= "logout";
     $profile->{prompt} ||= '#';
     # handle prompts in foreign languages or other things we didn't think of
-    $profile->{username_prompt} ||= qr/[Uu]ser[Nn]ame:|[Ll]ogin:/;
+    $profile->{username_prompt} ||= qr/[Uu]ser[Nn]ame:|[Ll]ogin( Name)?:/;
     $profile->{password_prompt} ||= qr/[Pp]ass[Ww]ord/;
 
     $self->{'profile'}=$profile;
@@ -514,7 +514,7 @@ sub enable {
     my $profile = $self->profile;
 
     if ($profile->{enablecmd}) {
-        $profile->{ena_username_prompt} ||= qr/[Uu]ser[Nn]ame:|[Ll]ogin:/;
+        $profile->{ena_username_prompt} ||= qr/[Uu]ser[Nn]ame:|[Ll]ogin( Name)?:/;
         $profile->{ena_password_prompt} ||= qr/[Pp]ass[Ww]ord/;
         $profile->{ena_regular_prompt} ||= '>';
         my $enable = $profile->{enable} ? $profile->{enable} : $profile->{password};
@@ -623,13 +623,6 @@ sub login {
         push @dynamic, [ qr/$rtr->{prompt}/, sub { $self->connected(CONN_PROMPT); last METHOD; } ];
     }
 
-<<<<<<< HEAD
-=======
-    # handle prompts in foreign languages or other things we didn't think of
-    $rtr->{username_prompt} ||= qr/[Uu]ser[Nn]ame:|[Ll]ogin( Name)?:/;
-    $rtr->{password_prompt} ||= qr/[Pp]ass[Ww]ord/;
->>>>>>> 0b1efff1ae6bec75673e0bf7ce5cac9f322c800f
-
     # used to keep track of if we have run the hostsearched routine.
     my $hostsearched = 0;
 
@@ -728,11 +721,6 @@ sub run_commands {
     my $opts = $self->{opts};
 
     CMD: foreach my $arg (@_) {
-        if ($arg =~ s/^%%perleval:(.*)/) {
-            warn "Running \"$1\" locally from %%perleval statement.\n";
-            eval "$1";
-            next CMD;
-        }
         $arg =~ s/\\r/\r/g; # fix for reload\ry.  I believe 'perldoc quotemeta' explains why this happens
         chomp($arg);
         $self->send("$arg\r");