patches/Net_IRC_Connection_pm.patch

   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.
   5  sub parse_ctcp {
   6      my ($self, $type, $from, $stuff, $line) = @_;
   7 -
   8      my ($one, $two);
   9      my ($odd, @foo) = (&dequote($line));
  10
  11      while (($one, $two) = (splice @foo, 0, 2)) {
  12
  13         ($one, $two) = ($two, $one) if $odd;
  14 -
  15 +
  16         my ($ctype) = $one =~ /^(\w+)\b/;
  17         my $prefix = undef;
  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()
  23 -
  24 -           $one =~ s/^$ctype //i;  # strip the CTCP type off the args
  25 +
  26 +           # this is what it used to be in version 0.63 or so.
  27             $self->handler(Net::IRC::Event->new( $handler, $from, $stuff,
  28 -                                                $handler, $one ));
  29 +                                               $handler, (split /\s/, $one)));
  30         }
  31
  32         $self->handler(Net::IRC::Event->new($type, $from, $stuff, $type, $two))