1 --- Connection.pm.orig Fri Nov 1 00:20:36 2002
2 +++ Connection.pm Sat Nov 2 18:00:42 2002
3 @@ -1300,14 +1300,13 @@
4 # the line from the server.
6 my ($self, $type, $from, $stuff, $line) = @_;
9 my ($odd, @foo) = (&dequote($line));
11 while (($one, $two) = (splice @foo, 0, 2)) {
13 ($one, $two) = ($two, $one) if $odd;
16 my ($ctype) = $one =~ /^(\w+)\b/;
18 if ($type eq 'notice') {
19 @@ -1326,10 +1325,10 @@
20 # -- #perl was here! --
21 # fimmtiu: Words cannot describe my joy. Sil, you kick ass.
22 # fimmtiu: I was passing the wrong arg to Event::new()
24 - $one =~ s/^$ctype //i; # strip the CTCP type off the args
26 + # this is what it used to be in version 0.63 or so.
27 $self->handler(Net::IRC::Event->new( $handler, $from, $stuff,
29 + $handler, (split /\s/, $one)));
32 $self->handler(Net::IRC::Event->new($type, $from, $stuff, $type, $two))