Skip to content
Browse files

Default nickname to `$nick`

  • Loading branch information...
1 parent c539d04 commit 4c744dd09616407ad4961a88fcfa9eb618504818 Alan Haggai Alavi committed Dec 12, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 log.pl
View
2 log.pl
@@ -14,7 +14,7 @@
my $server = 'irc.perl.org';
get '/' => sub {
my $self = shift;
- $nick = $self->param('nick') || "guest$$";
+ $nick = $self->param('nick') || $nick;
$channel = $self->param('channel') || $channel;
$self->stash(nick => $nick);
$self->render('index', channel =>$channel);

0 comments on commit 4c744dd

Please sign in to comment.
Something went wrong with that request. Please try again.