From owner-freebsd-ports  Tue Jun 26  6:40:12 2001
Delivered-To: freebsd-ports@hub.freebsd.org
Received: from freefall.freebsd.org (freefall.freebsd.org [216.136.204.21])
	by hub.freebsd.org (Postfix) with ESMTP id 8314137B405
	for <freebsd-ports@hub.freebsd.org>; Tue, 26 Jun 2001 06:40:04 -0700 (PDT)
	(envelope-from gnats@FreeBSD.org)
Received: (from gnats@localhost)
	by freefall.freebsd.org (8.11.3/8.11.3) id f5QDe4q19696;
	Tue, 26 Jun 2001 06:40:04 -0700 (PDT)
	(envelope-from gnats)
Date: Tue, 26 Jun 2001 06:40:04 -0700 (PDT)
Message-Id: <200106261340.f5QDe4q19696@freefall.freebsd.org>
To: freebsd-ports@FreeBSD.org
Cc: 
From: Jun Kuriyama <kuriyama@imgsrc.co.jp>
Subject: Re: ports/28378: p5-Net-IRC-0.70_1  eats irc text with colons in them
Reply-To: Jun Kuriyama <kuriyama@imgsrc.co.jp>
Sender: owner-freebsd-ports@FreeBSD.ORG
Precedence: bulk
List-ID: <freebsd-ports.FreeBSD.ORG>
List-Archive: <http://docs.freebsd.org/mail/> (Web Archive)
List-Help: <mailto:majordomo?subject=help> (List Instructions)
List-Subscribe: <mailto:majordomo?subject=subscribe%20freebsd-ports>
List-Unsubscribe: <mailto:majordomo?subject=unsubscribe%20freebsd-ports>
X-Loop: FreeBSD.org

The following reply was made to PR ports/28378; it has been noted by GNATS.

From: Jun Kuriyama <kuriyama@imgsrc.co.jp>
To: "Asimov" <asimov@owirc.com>
Cc: <freebsd-gnats-submit@FreeBSD.ORG>
Subject: Re: ports/28378: p5-Net-IRC-0.70_1  eats irc text with colons in them
Date: Tue, 26 Jun 2001 22:37:38 +0900

 At Tue, 26 Jun 2001 09:31:46 -0400,
 Asimov wrote:
 > ok, that seems to have solved the text parsing problem... but i'm still
 > getting some odd warnings
 > 
 > [  214] !WARN! PERL: Use of uninitialized value at
 > /usr/local/lib/perl5/site_perl/5.005/Net/IRC/Connection.pm line 1105.
 
 Could you test with new patch and show me message?
 
 
 --- Connection.pm.orig	Tue May 30 07:12:02 2000
 +++ Connection.pm	Tue Jun 26 22:36:10 2001
 @@ -1101,7 +1101,8 @@
  		 /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.*?):(.*)$/;
 +print STDERR "kuriyama: $from\n";
  	    ($from, $type, @stuff) = split /\s+/, $from;
  	    $type = lc $type;
  	    
 
 -- 
 Jun Kuriyama <kuriyama@imgsrc.co.jp> // IMG SRC, Inc.
              <kuriyama@FreeBSD.org> // FreeBSD Project

To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-ports" in the body of the message