Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 15:45:42 -04:00
Code Issues Releases Wiki Activity

Interpret U+2424 as a \n inside IRC

Browse source
This commit is contained in:
Ryan Voots 2016-11-27 13:06:51 -05:00
parent c3d4511f53
commit 7941b3921a
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plugins/eval.pm
View file

@ -60,6 +60,8 @@ sub command {
$code = "use warnings; ".$code; $code = "use warnings; ".$code;
} }
$code =~ s/␤/\n/g;
my $filter = POE::Filter::Reference->new(); my $filter = POE::Filter::Reference->new();
my $socket = IO::Socket::INET->new( PeerAddr => 'localhost', PeerPort => '14400' ) my $socket = IO::Socket::INET->new( PeerAddr => 'localhost', PeerPort => '14400' )
or die "error: cannot connect to eval server"; or die "error: cannot connect to eval server";