From 78dd6ff4ec7a810f96aebc410125d86f58e784c8 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 8 Nov 2002 17:14:39 +0000
Subject: [PATCH] - remove old patch. - added patch against current original
 version.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@615 c11ca15a-4712-0410-83d8-924469b57eb5
---
 .../patches/Net::IRC::Connection.pm.patch     | 26 ---------------
 blootbot/patches/Net_IRC_Connection_pm.patch  | 32 +++++++++++++++++++
 2 files changed, 32 insertions(+), 26 deletions(-)
 delete mode 100644 blootbot/patches/Net::IRC::Connection.pm.patch
 create mode 100644 blootbot/patches/Net_IRC_Connection_pm.patch

diff --git a/blootbot/patches/Net::IRC::Connection.pm.patch b/blootbot/patches/Net::IRC::Connection.pm.patch
deleted file mode 100644
index d91888a..0000000
--- a/blootbot/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/blootbot/patches/Net_IRC_Connection_pm.patch b/blootbot/patches/Net_IRC_Connection_pm.patch
new file mode 100644
index 0000000..400a1f8
--- /dev/null
+++ b/blootbot/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))
-- 
2.39.5