From owner-freebsd-ports-bugs@FreeBSD.ORG Thu Jun 7 16:00:13 2007 Return-Path: X-Original-To: freebsd-ports-bugs@hub.freebsd.org Delivered-To: freebsd-ports-bugs@hub.freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [69.147.83.52]) by hub.freebsd.org (Postfix) with ESMTP id 9E21E16A41F for ; Thu, 7 Jun 2007 16:00:13 +0000 (UTC) (envelope-from gnats@FreeBSD.org) Received: from freefall.freebsd.org (freefall.freebsd.org [69.147.83.40]) by mx1.freebsd.org (Postfix) with ESMTP id 7FB2013C45A for ; Thu, 7 Jun 2007 16:00:13 +0000 (UTC) (envelope-from gnats@FreeBSD.org) Received: from freefall.freebsd.org (gnats@localhost [127.0.0.1]) by freefall.freebsd.org (8.13.4/8.13.4) with ESMTP id l57G0DH2092749 for ; Thu, 7 Jun 2007 16:00:13 GMT (envelope-from gnats@freefall.freebsd.org) Received: (from gnats@localhost) by freefall.freebsd.org (8.13.4/8.13.4/Submit) id l57G0DhQ092744; Thu, 7 Jun 2007 16:00:13 GMT (envelope-from gnats) Resent-Date: Thu, 7 Jun 2007 16:00:13 GMT Resent-Message-Id: <200706071600.l57G0DhQ092744@freefall.freebsd.org> Resent-From: FreeBSD-gnats-submit@FreeBSD.org (GNATS Filer) Resent-To: freebsd-ports-bugs@FreeBSD.org Resent-Reply-To: FreeBSD-gnats-submit@FreeBSD.org, Eugene Grosbein Received: from mx1.freebsd.org (mx1.freebsd.org [69.147.83.52]) by hub.freebsd.org (Postfix) with ESMTP id 702D016A421 for ; Thu, 7 Jun 2007 15:56:16 +0000 (UTC) (envelope-from eugen@grosbein.pp.ru) Received: from grosbein.pp.ru (grgw.svzserv.kemerovo.su [213.184.64.166]) by mx1.freebsd.org (Postfix) with ESMTP id 79CF113C489 for ; Thu, 7 Jun 2007 15:56:15 +0000 (UTC) (envelope-from eugen@grosbein.pp.ru) Received: from grosbein.pp.ru (localhost [127.0.0.1]) by grosbein.pp.ru (8.14.1/8.14.1) with ESMTP id l57FhCH3002404 for ; Thu, 7 Jun 2007 23:43:12 +0800 (KRAST) (envelope-from eugen@grosbein.pp.ru) Received: (from eugen@localhost) by grosbein.pp.ru (8.14.1/8.13.8/Submit) id l57FhAn8002403; Thu, 7 Jun 2007 23:43:10 +0800 (KRAST) (envelope-from eugen) Message-Id: <200706071543.l57FhAn8002403@grosbein.pp.ru> Date: Thu, 7 Jun 2007 23:43:10 +0800 (KRAST) From: Eugene Grosbein To: FreeBSD-gnats-submit@FreeBSD.org X-Send-Pr-Version: 3.113 Cc: Subject: ports/113458: net-im/vicq does not work with perl5.8 X-BeenThere: freebsd-ports-bugs@freebsd.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Ports bug reports List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 07 Jun 2007 16:00:13 -0000 >Number: 113458 >Category: ports >Synopsis: net-im/vicq does not work with perl5.8 >Confidential: no >Severity: non-critical >Priority: low >Responsible: freebsd-ports-bugs >State: open >Quarter: >Keywords: >Date-Required: >Class: sw-bug >Submitter-Id: current-users >Arrival-Date: Thu Jun 07 16:00:12 GMT 2007 >Closed-Date: >Last-Modified: >Originator: Eugene Grosbein >Release: FreeBSD 6.2-STABLE i386 >Organization: Svyaz Service JSC >Environment: System: FreeBSD grosbein.pp.ru 6.2-STABLE FreeBSD 6.2-STABLE #16: Tue Apr 17 23:08:38 KRAST 2007 eu@grosbein.pp.ru:/mnt/home/obj/usr/local/src/sys/DADV i386 perl 5.8, vicq-0.4.2 >Description: Quoting some web page: Perl 5.8 has this wonderful thing called "safe interrupts", which essentially defers them. So the "alarm" that's supposed to interrupt the readline was deferred until AFTER the readline. Beautiful, no? So, vicq doesn't update status nor deliver messages asyncronously with input from keyboard when used with perl 5.8. >How-To-Repeat: Run vicq using perl 5.8 and try to receive a message. >Fix: diff -urN vicq.orig/Makefile vicq/Makefile --- vicq.orig/Makefile Thu Jun 7 23:26:53 2007 +++ vicq/Makefile Thu Jun 7 23:36:18 2007 @@ -30,4 +30,13 @@ ${MKDIR} ${PREFIX}/share/examples/vicq ${INSTALL_DATA} ${WRKSRC}/vicqrc.example ${PREFIX}/share/examples/vicq -.include +.include + +.if ${PERL_LEVEL} >= 500800 +SIGNAL_PATCH=p5.8-patch-sigalrm +post-patch: + @${ECHO_MSG} "===> Applying patch ${SIGNAL_PATCH} for ${PKGNAME}" + @${PATCH} ${PATCH_ARGS} < ${PATCHDIR}/${SIGNAL_PATCH} +.endif + +.include diff -urN vicq.orig/files/p5.8-patch-sigalrm vicq/files/p5.8-patch-sigalrm --- vicq.orig/files/p5.8-patch-sigalrm Thu Jan 1 07:00:00 1970 +++ vicq/files/p5.8-patch-sigalrm Thu Jun 7 23:19:53 2007 @@ -0,0 +1,19 @@ +--- vicq.orig Thu Jun 7 23:15:28 2007 ++++ vicq Thu Jun 7 23:16:41 2007 +@@ -20,6 +20,7 @@ + use Getopt::Std; + use Socket; + use POSIX qw(mktime getcwd); ++use POSIX ':signal_h'; + package main; + use locale; + #use Data::Dumper; +@@ -3347,7 +3348,7 @@ + if(!$err) + { + print "done!\n"; +- $SIG{ALRM} = \&tick_handler; ++ sigaction SIGALRM, new POSIX::SigAction \&tick_handler; + alarm 1; + return 0; + } else Eugene Grosbein >Release-Note: >Audit-Trail: >Unformatted: