diff options
| author | Chris D. Faulhaber <jedgar@FreeBSD.org> | 2001-11-27 14:34:05 +0000 |
|---|---|---|
| committer | Chris D. Faulhaber <jedgar@FreeBSD.org> | 2001-11-27 14:34:05 +0000 |
| commit | 807c6eb53f3d7b7822d60a701aef50c7ea366d03 (patch) | |
| tree | 76bc340ad74f67ea93527a93c679c83469ae82a6 /irc/p5-IRC | |
| parent | fca4a714a31bd012088517d072f3f491335e435b (diff) | |
Notes
Diffstat (limited to 'irc/p5-IRC')
| -rw-r--r-- | irc/p5-IRC/Makefile | 6 | ||||
| -rw-r--r-- | irc/p5-IRC/distinfo | 2 | ||||
| -rw-r--r-- | irc/p5-IRC/files/patch-Connection.pm | 22 |
3 files changed, 14 insertions, 16 deletions
diff --git a/irc/p5-IRC/Makefile b/irc/p5-IRC/Makefile index ca635d583fcd..c9ad8ec5c5de 100644 --- a/irc/p5-IRC/Makefile +++ b/irc/p5-IRC/Makefile @@ -6,8 +6,7 @@ # PORTNAME= Net-IRC -PORTVERSION= 0.70 -PORTREVISION= 1 +PORTVERSION= 0.71 CATEGORIES= irc perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= Net @@ -18,8 +17,7 @@ MAINTAINER= jedgar@fxp.org PERL_CONFIGURE= yes MANPREFIX= ${PREFIX}/lib/perl5/${PERL_VERSION} -MAN3= \ - Net::Connection.3 \ +MAN3= Net::Connection.3 \ Net::DCC.3 \ Net::Event.3 \ Net::IRC.3 diff --git a/irc/p5-IRC/distinfo b/irc/p5-IRC/distinfo index 80be3a69c1ac..a2466fdc2454 100644 --- a/irc/p5-IRC/distinfo +++ b/irc/p5-IRC/distinfo @@ -1 +1 @@ -MD5 (Net-IRC-0.70.tar.gz) = 27ee8e5990c6c98a89941c6880de7225 +MD5 (Net-IRC-0.71.tar.gz) = a826fb30864b619d6de47c97cef4fc24 diff --git a/irc/p5-IRC/files/patch-Connection.pm b/irc/p5-IRC/files/patch-Connection.pm index 8fcabb849ef4..6834703e4c56 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;
+
|