From f581fef655e27634c139e94c60555c4600d02792 Mon Sep 17 00:00:00 2001
From: Norikatsu Shigemura <nork@FreeBSD.org>
Date: Sun, 9 May 2010 16:26:11 +0000
Subject: o Remove debugging use only code by no longer support #$   on Perl
 5.10.  [1] o Bump PORTREVISION, accordingly. o Maintain MASTER_SITES by
 removing from IIJ site.

PR:		ports/146346 [1]
Submitted by:	Kenji Rikitake  kenji.rikitake acm org [1]
---
 japanese/a2ps/Makefile       |  6 ++++--
 japanese/a2ps/files/patch-aa | 14 ++++++++++++--
 2 files changed, 16 insertions(+), 4 deletions(-)

(limited to 'japanese/a2ps')

diff --git a/japanese/a2ps/Makefile b/japanese/a2ps/Makefile
index e3a409157545..26a6d58b81b7 100644
--- a/japanese/a2ps/Makefile
+++ b/japanese/a2ps/Makefile
@@ -7,9 +7,11 @@
 
 PORTNAME=	a2ps
 PORTVERSION=	1.45
+PORTREVISION=	1
 CATEGORIES=	japanese print
-MASTER_SITES=	ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/ \
-		ftp://ftp.sra.co.jp/pub/lang/perl/sra-scripts/
+MASTER_SITES=	ftp://ftp.sra.co.jp/pub/lang/perl/sra-scripts/ \
+		${MASTER_SITE_LOCAL}
+MASTER_SITE_SUBDIR=	nork
 DISTNAME=	${PORTNAME}.pl-${PORTVERSION}
 EXTRACT_SUFX=
 
diff --git a/japanese/a2ps/files/patch-aa b/japanese/a2ps/files/patch-aa
index 6856aed82475..b91bd3111d26 100644
--- a/japanese/a2ps/files/patch-aa
+++ b/japanese/a2ps/files/patch-aa
@@ -1,8 +1,18 @@
---- a2ps-j.orig	Thu Apr  8 02:52:44 1999
-+++ a2ps-j	Thu Apr  8 02:54:06 1999
+--- a2ps-j.orig	2010-05-10 01:15:32.227559000 +0900
++++ a2ps-j	2010-05-10 01:18:27.223595925 +0900
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl
 +#!/usr/bin/perl
  ;#
  ;# a2ps: ascii to ps
  ;#
+@@ -192,7 +192,8 @@
+ 
+ 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',
-- 
cgit v1.2.3