1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 19:26:05 -04:00

fixing path

This commit is contained in:
Ryan Voots 2010-04-26 22:11:29 -04:00
parent e15efabfb5
commit 992cda5092

View file

@ -52,7 +52,7 @@ sub command {
warn "Found $type: $code";
my $filter = POE::Filter::Reference->new();
my $socket = IO::Socket::INET->new( PeerAddr => 'simcop2387.info', PeerPort => '14400' )
my $socket = IO::Socket::INET->new( PeerAddr => 'home.simcop2387.info', PeerPort => '14400' )
or die "error: cannot connect to eval server";
my $refs = $filter->put( [ { code => "$type $code" } ] );