- remove old patch.

- added patch against current original version.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@615 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/patches/Net::IRC::Connection.pm.patch b/patches/Net::IRC::Connection.pm.patch
deleted file mode 100644 (file)
index d91888a..0000000
--- a/patches/Net::IRC::Connection.pm.patch
+++ /dev/null
@@ -1,26 +0,0 @@
---- Connection.pm      Tue Feb 13 21:09:31 2001
-+++ /usr/lib/perl5/Net/IRC/Connection.pm       Wed Dec 27 20:32:30 2000
-@@ -1288,17 +1376,20 @@
-       if ($prefix) {
-           my $handler = $prefix . lc $ctype;   # unit. value prob with $ctype
- 
--          warn "ctype => $ctype\n";
--
-           # -- #perl was here! --
-           # fimmtiu: Words cannot describe my joy. Sil, you kick ass.
-           # fimmtiu: I was passing the wrong arg to Event::new()
-  
--          $self->handler(Net::IRC::Event->new($handler, $from, $stuff,
-+###       $one =~ s/^$ctype //i;  # strip the CTCP type off the args
-+          $self->handler(Net::IRC::Event->new( $handler, $from, $stuff,
-+###                                            $handler, $one ));
-                                               $handler, (split /\s/, $one)));
-       }
- 
--      # This next line is very likely broken somehow. Sigh.
-       $self->handler(Net::IRC::Event->new($type, $from, $stuff, $type, $two))
--          if ($two);
-+          if $two;
-     }
-     return 1;
- }

diff --git a/patches/Net_IRC_Connection_pm.patch b/patches/Net_IRC_Connection_pm.patch
new file mode 100644 (file)
index 0000000..400a1f8
--- /dev/null
+++ b/patches/Net_IRC_Connection_pm.patch
@@ -0,0 +1,32 @@
+--- Connection.pm.orig Fri Nov  1 00:20:36 2002
++++ Connection.pm      Sat Nov  2 18:00:42 2002
+@@ -1300,14 +1300,13 @@
+ #                     the line from the server.
+ sub parse_ctcp {
+     my ($self, $type, $from, $stuff, $line) = @_;
+-
+     my ($one, $two);
+     my ($odd, @foo) = (&dequote($line));
+ 
+     while (($one, $two) = (splice @foo, 0, 2)) {
+  
+       ($one, $two) = ($two, $one) if $odd;
+-      
++
+       my ($ctype) = $one =~ /^(\w+)\b/;
+       my $prefix = undef;
+       if ($type eq 'notice') {
+@@ -1326,10 +1325,10 @@
+           # -- #perl was here! --
+           # fimmtiu: Words cannot describe my joy. Sil, you kick ass.
+           # fimmtiu: I was passing the wrong arg to Event::new()
+- 
+-          $one =~ s/^$ctype //i;  # strip the CTCP type off the args
++
++          # this is what it used to be in version 0.63 or so.
+           $self->handler(Net::IRC::Event->new( $handler, $from, $stuff,
+-                                               $handler, $one ));
++                                              $handler, (split /\s/, $one)));
+       }
+ 
+       $self->handler(Net::IRC::Event->new($type, $from, $stuff, $type, $two))