Skip site navigation (1)Skip section navigation (2)
Date:      Thu, 6 May 2010 05:59:09 GMT
From:      Kenji Rikitake <kenji.rikitake@acm.org>
To:        freebsd-gnats-submit@FreeBSD.org
Subject:   ports/146346: port japanese/a2ps generates a Perl severe error message after upgrading perl from 5.8.x to 5.10.1
Message-ID:  <201005060559.o465x9uL020992@www.freebsd.org>
Resent-Message-ID: <201005060600.o4660C4H017776@freefall.freebsd.org>

next in thread | raw e-mail | index | archive | help

>Number:         146346
>Category:       ports
>Synopsis:       port japanese/a2ps generates a Perl severe error message after upgrading perl from 5.8.x to 5.10.1
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Thu May 06 06:00:11 UTC 2010
>Closed-Date:
>Last-Modified:
>Originator:     Kenji Rikitake
>Release:        7.3-RELEASE
>Organization:
>Environment:
FreeBSD reseaux.priv.k2r.org 7.3-RELEASE FreeBSD 7.3-RELEASE #18: Sun May  2 18:01:13 JST 2010     root@reseaux.priv.k2r.org:/usr/obj/usr/src/sys/RESEAUX  i386
>Description:
a2ps-j, installed by japanese/a2ps, generates the severe error warning as

$# is no longer supported at ./a2ps-j.orig line 195.

when executed in Perl 5.10.1.


>How-To-Repeat:
Running a2ps-j installed by japanese/a2ps
>Fix:
The portion which issues the warning is for debugging use only.
Since $# is no longer supported by Perl 5.10.1, 
this should be simply removed as in the patch given.



Patch attached with submission follows:

--- a2ps-j.orig	2009-06-21 09:48:59.000000000 +0900
+++ a2ps-j	2010-05-06 14:50:03.000000000 +0900
@@ -190,11 +190,12 @@
     exit(1);
 }
 
 if ($debug == 2) {
     require('dumpvar.pl');
-    local($#) = '%.6g';
+##  Perl 5.10.1 says $# is no longer supported
+##  local($#) = '%.6g';
     &dumpvar('main',
 	     'width', 'height', 'lmargin', 'smargin', 'font_size',
 	     'sheet_height', 'sheet_width', 'char_width', 'skip_column',
 	     'header', 'page_width', 'page_height', 'header_size',
 	     'linesperpage', 'columnsperline');


>Release-Note:
>Audit-Trail:
>Unformatted:



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201005060559.o465x9uL020992>