diff options
Diffstat (limited to 'irc/p5-IRC/files/patch-Connection.pm')
| -rw-r--r-- | irc/p5-IRC/files/patch-Connection.pm | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/irc/p5-IRC/files/patch-Connection.pm b/irc/p5-IRC/files/patch-Connection.pm index 8fcabb8..6834703 100644 --- a/irc/p5-IRC/files/patch-Connection.pm +++ b/irc/p5-IRC/files/patch-Connection.pm @@ -1,11 +1,11 @@ ---- Connection.pm.orig Tue May 30 07:12:02 2000 -+++ Connection.pm Wed Jun 13 17:01:06 2001 -@@ -1101,7 +1101,7 @@ - /x) # That ought to do it for now... - { - $line = substr $line, 1 if $line =~ /^:/; -- ($from, $line) = split ":", $line, 2; -+ ($from, $line) = $line =~ m/^(.*):(.*?)$/; - ($from, $type, @stuff) = split /\s+/, $from; - $type = lc $type; - +--- Connection.pm.orig Sun Jul 1 14:50:50 2001 ++++ Connection.pm Tue Nov 27 09:31:39 2001 +@@ -1112,7 +1112,7 @@ + /x) # That ought to do it for now...
+ {
+ $line = substr $line, 1 if $line =~ /^:/;
+- ($from, $line) = split ":", $line, 2;
++ ($from, $line) = $line =~ m/^(\S+\s.*?):(.*)$/;
+ ($from, $type, @stuff) = split /\s+/, $from;
+ $type = lc $type;
+
|
