From owner-freebsd-ports-bugs@FreeBSD.ORG Tue Jul 31 06:30:12 2012 Return-Path: Delivered-To: freebsd-ports-bugs@hub.freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34]) by hub.freebsd.org (Postfix) with ESMTP id 4C26A106566B for ; Tue, 31 Jul 2012 06:30:12 +0000 (UTC) (envelope-from gnats@FreeBSD.org) Received: from freefall.freebsd.org (freefall.freebsd.org [IPv6:2001:4f8:fff6::28]) by mx1.freebsd.org (Postfix) with ESMTP id 1D8368FC16 for ; Tue, 31 Jul 2012 06:30:12 +0000 (UTC) Received: from freefall.freebsd.org (localhost [127.0.0.1]) by freefall.freebsd.org (8.14.5/8.14.5) with ESMTP id q6V6UB8U055378 for ; Tue, 31 Jul 2012 06:30:11 GMT (envelope-from gnats@freefall.freebsd.org) Received: (from gnats@localhost) by freefall.freebsd.org (8.14.5/8.14.5/Submit) id q6V6UBMg055375; Tue, 31 Jul 2012 06:30:11 GMT (envelope-from gnats) Resent-Date: Tue, 31 Jul 2012 06:30:11 GMT Resent-Message-Id: <201207310630.q6V6UBMg055375@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, Kenji Rikitake Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34]) by hub.freebsd.org (Postfix) with ESMTP id A36B7106566B for ; Tue, 31 Jul 2012 06:29:21 +0000 (UTC) (envelope-from kenji@macrofield.com) Received: from mail-gh0-f182.google.com (mail-gh0-f182.google.com [209.85.160.182]) by mx1.freebsd.org (Postfix) with ESMTP id 589428FC17 for ; Tue, 31 Jul 2012 06:29:20 +0000 (UTC) Received: by ghbz22 with SMTP id z22so6593808ghb.13 for ; Mon, 30 Jul 2012 23:29:19 -0700 (PDT) Received: by 10.66.75.229 with SMTP id f5mr29946902paw.47.1343716159373; Mon, 30 Jul 2012 23:29:19 -0700 (PDT) Received: from minimax.priv.k2r.org (jj1bdx-1-pt.tunnel.tserv22.tyo1.ipv6.he.net. [2001:470:23:11b::2]) by mx.google.com with ESMTPS id pg9sm9129813pbb.26.2012.07.30.23.29.16 (version=SSLv3 cipher=OTHER); Mon, 30 Jul 2012 23:29:18 -0700 (PDT) Received: by minimax.priv.k2r.org (sSMTP sendmail emulation); Tue, 31 Jul 2012 15:29:13 +0900 Message-Id: <50177b3e.0986440a.58f2.791f@mx.google.com> Date: Tue, 31 Jul 2012 15:29:13 +0900 From: Kenji Rikitake Sender: Kenji Rikitake To: FreeBSD-gnats-submit@FreeBSD.org X-Send-Pr-Version: 3.113 Cc: Subject: ports/170293: Port japanese/a2ps generates a warning message on Perl 5.16 X-BeenThere: freebsd-ports-bugs@freebsd.org X-Mailman-Version: 2.1.5 Precedence: list Reply-To: Kenji Rikitake List-Id: Ports bug reports List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 31 Jul 2012 06:30:12 -0000 >Number: 170293 >Category: ports >Synopsis: Port japanese/a2ps generates a warning message on Perl 5.16 >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: Tue Jul 31 06:30:11 UTC 2012 >Closed-Date: >Last-Modified: >Originator: Kenji Rikitake >Release: FreeBSD 9.0-STABLE amd64 >Organization: >Environment: System: FreeBSD minimax.priv.k2r.org 9.0-STABLE FreeBSD 9.0-STABLE #5: Wed Jun 13 12:46:09 JST 2012 root@minimax.priv.k2r.org:/usr/obj/usr/src/sys/MINIMAX amd64 Running Perl-5.16.0 from Ports >Description: Executing a2ps-j generates the following warning message: defined(@array) is deprecated at /usr/local/bin/a2ps-j line 59. (Maybe you should just omit the defined()?) >How-To-Repeat: /usr/local/bin/a2ps-j >Fix: Apply the following patch to avoid using defined() on an array. (See also http://perldoc.perl.org/functions/defined.html ) --- /usr/local/bin/a2ps-j 2011-10-25 23:39:11.000000000 +0900 +++ ./a2ps-j 2012-07-31 15:22:10.000000000 +0900 @@ -56,9 +56,12 @@ @param_b4 = (10.15, 14.31, 1.40, 1.2, 8.50, 9.5, 0.29, 0.22, 0.08, 'b4'); sub paper { local(*param) = 'param_' . $_[0]; - die "Unknown paper type: $_[0]\n" unless defined @param; - ($width, $height, $lmargin, $smargin, $fontsize_l, $fontsize_p, - $portrait_header, $landscape_header, $paper_adjust, $paper_tray) = @param; + if (@param) { + ($width, $height, $lmargin, $smargin, $fontsize_l, $fontsize_p, + $portrait_header, $landscape_header, $paper_adjust, $paper_tray) = @param; + } else { + die "Unknown paper type: $_[0]\n"; + } } &paper($default_paper); >Release-Note: >Audit-Trail: >Unformatted: