From owner-freebsd-ports-bugs@FreeBSD.ORG Tue Sep 26 00:10:15 2006 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 [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id 7728A16A407 for ; Tue, 26 Sep 2006 00:10:15 +0000 (UTC) (envelope-from gnats@FreeBSD.org) Received: from freefall.freebsd.org (freefall.freebsd.org [216.136.204.21]) by mx1.FreeBSD.org (Postfix) with ESMTP id D37C043D4C for ; Tue, 26 Sep 2006 00:10:14 +0000 (GMT) (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 k8Q0AEJQ068404 for ; Tue, 26 Sep 2006 00:10:14 GMT (envelope-from gnats@freefall.freebsd.org) Received: (from gnats@localhost) by freefall.freebsd.org (8.13.4/8.13.4/Submit) id k8Q0AE0q068403; Tue, 26 Sep 2006 00:10:14 GMT (envelope-from gnats) Resent-Date: Tue, 26 Sep 2006 00:10:14 GMT Resent-Message-Id: <200609260010.k8Q0AE0q068403@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, Warren Block Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id 22E5016A40F for ; Tue, 26 Sep 2006 00:07:39 +0000 (UTC) (envelope-from wblock@wonkity.com) Received: from wonkity.com (wonkity.com [67.158.26.137]) by mx1.FreeBSD.org (Postfix) with ESMTP id B6AB043D55 for ; Tue, 26 Sep 2006 00:07:38 +0000 (GMT) (envelope-from wblock@wonkity.com) Received: from speedy.wonkity.com (speedy [10.0.0.7]) by wonkity.com (8.13.8/8.13.8) with ESMTP id k8Q07XZ5020989 for ; Mon, 25 Sep 2006 18:07:38 -0600 (MDT) (envelope-from wblock@speedy.wonkity.com) Received: from speedy.wonkity.com (localhost [127.0.0.1]) by speedy.wonkity.com (8.13.8/8.13.8) with ESMTP id k8Q07XM4010331 for ; Mon, 25 Sep 2006 18:07:33 -0600 (MDT) (envelope-from wblock@speedy.wonkity.com) Received: (from wblock@localhost) by speedy.wonkity.com (8.13.8/8.13.8/Submit) id k8Q07X85010330; Mon, 25 Sep 2006 18:07:33 -0600 (MDT) (envelope-from wblock) Message-Id: <200609260007.k8Q07X85010330@speedy.wonkity.com> Date: Mon, 25 Sep 2006 18:07:33 -0600 (MDT) From: Warren Block To: FreeBSD-gnats-submit@FreeBSD.org X-Send-Pr-Version: 3.113 Cc: Subject: ports/103653: [patch] Bug in p5-Number-Format X-BeenThere: freebsd-ports-bugs@freebsd.org X-Mailman-Version: 2.1.5 Precedence: list Reply-To: Warren Block List-Id: Ports bug reports List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 26 Sep 2006 00:10:15 -0000 >Number: 103653 >Category: ports >Synopsis: [patch] Bug in p5-Number-Format >Confidential: no >Severity: serious >Priority: medium >Responsible: freebsd-ports-bugs >State: open >Quarter: >Keywords: >Date-Required: >Class: sw-bug >Submitter-Id: current-users >Arrival-Date: Tue Sep 26 00:10:14 GMT 2006 >Closed-Date: >Last-Modified: >Originator: Warren Block >Release: FreeBSD 6.1-STABLE i386 >Organization: >Environment: System: FreeBSD speedy.wonkity.com 6.1-STABLE FreeBSD 6.1-STABLE #0: Wed Aug 30 19:06:32 MDT 2006 root@speedy.wonkity.com:/usr/obj/usr/src/sys/SPEEDY i386 >Description: An extra single-quoted space is present on line 647 of Format.pm, causing a syntax error when compiling the module. The space is not present in the current version 1.52 of Format::Number on CPAN. Maybe this bug was fixed after the port was updated to 1.52? >How-To-Repeat: use Number::Format; syntax error at /usr/local/lib/perl5/site_perl/5.8.8/Number/Format.pm line 648, near "(" >Fix: The best fix would be to get the latest version of Format.pm from CPAN. This patch fixes the only current difference, but other changes may happen. --- /tmp/Format.pm Mon Sep 25 17:50:02 2006 +++ /usr/local/lib/perl5/site_perl/5.8.8/Number/Format.pm Mon Sep 25 17:50:10 2006 @@ -644,7 +644,7 @@ # Combine it all back together and return it. $self->{int_curr_symbol} =~ s/\s*$/ /; - my $result = ($self->{int_curr_symbol} . ' ' + my $result = ($self->{int_curr_symbol} . ($precision ? join($self->{mon_decimal_point}, $integer, $decimal) : $integer)); >Release-Note: >Audit-Trail: >Unformatted: