Changeset 7100 for lang/perl/POE-Component-Client-Nowa/trunk

Timestamp:

02/24/08 17:37:55 (5 years ago)

Author:

woremacx

Message:

lang/perl/POE-Component-Client-Nowa: oops.

Files:

• lang/perl/POE-Component-Client-Nowa/trunk/bin/nowa2ircd.pl (modified) (1 diff)

lang/perl/POE-Component-Client-Nowa/trunk/bin/nowa2ircd.pl

@@ -222 +222 @@
 
     if ($channel ne $conf->{channel}) {
-        $status->{status} = "$channel $status->{text}";
+        $status->{status} = "$channel $status->{status}";
 
     } elsif ($text =~ /^[\@\>]([a-z0-9\-]+):?\s+(.+)$/i) {