diff options
| author |   Sitaram Chamarty <sitaram@atc.tcs.com> | 2010-03-12 11:08:51 +0530 |
|---|---|---|
| committer | Sitaram Chamarty <sitaram@atc.tcs.com> | 2010-03-12 11:08:51 +0530 |
| commit | 367e8f893264d325a428b12accef078fb181bd2f (patch) | |
| tree | 17c8cc9ec18b5dd03c17dd5d01e1c35686a8ee20 | |
| parent | dps: made dps section clearer and more step-by-step (diff) | |
| download | gitolite-gentoo-367e8f893264d325a428b12accef078fb181bd2f.tar.gz gitolite-gentoo-367e8f893264d325a428b12accef078fb181bd2f.tar.bz2 gitolite-gentoo-367e8f893264d325a428b12accef078fb181bd2f.zip | |
minor LFCR -> CRLF fixv1.3
| -rw-r--r-- | src/gitolite.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/gitolite.pm b/src/gitolite.pm index c61a566..fbebeb3 100644 --- a/src/gitolite.pm +++ b/src/gitolite.pm @@ -286,12 +286,12 @@ sub report_basic # send back some useful info if no command was given print "hello $user, the gitolite version here is "; system("cat", ($GL_PACKAGE_CONF || "$GL_ADMINDIR/conf") . "/VERSION"); - print "\ryou have the following permissions:\n\r"; + print "\ryou have the following permissions:\r\n"; for my $r (sort keys %repos) { my $perm .= ( $repos{$r}{C}{'@all'} ? ' @' : ( $repos{$r}{C}{$user} ? ' C' : ' ' ) ); $perm .= ( $repos{$r}{R}{'@all'} ? ' @' : ( $repos{$r}{R}{$user} ? ' R' : ' ' ) ); $perm .= ( $repos{$r}{W}{'@all'} ? ' @' : ( $repos{$r}{W}{$user} ? ' W' : ' ' ) ); - print "$perm\t$r\n\r" if $perm =~ /\S/; + print "$perm\t$r\r\n" if $perm =~ /\S/; } } @@ -358,7 +358,7 @@ sub special_cmd # check each special command we know about and call it if enabled if ($cmd eq 'info') { &report_basic($GL_ADMINDIR, $GL_CONF_COMPILED, $user); - print "you also have shell access\n\r" if $shell_allowed; + print "you also have shell access\r\n" if $shell_allowed; } elsif ($cmd =~ /^info\s+(.+)$/) { my @otherusers = split ' ', $1; &parse_acl($GL_CONF_COMPILED); |