Index: subversion/bindings/swig/perl/Client.pm
===================================================================
--- subversion/bindings/swig/perl/Client.pm     (revision 9128)
+++ subversion/bindings/swig/perl/Client.pm     (working copy)
@@ -35,7 +35,7 @@
       print "Enter authentication info for realm: $realm\n";
       print "Username: ";
       my $username = <>;
-      chop($username);
+      chomp($username);
       $cred->username($username);
       print "Password: ";
       my $password = <>;