set Login to login

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 122d3ec837e52cfeccbb3ee9092274784a477c0b..5b38fa677e43673233c7cc8ec5e7423bb6e0c03f 100644 (file)
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -120,7 +120,7 @@ sub new_client {
 #              $conn->send_raw("\xff\xfa\x22\x01\x01\xff\xf0");
                $conn->send_raw("\xFF\xFC\x01");
                _send_file($conn, "$main::data/issue");
-               $conn->send_raw("Login: ");
+               $conn->send_raw("login: ");
     } else { 
         $conn->disconnect();
     }