[73487] trunk/dports/print/a2ps-j/files

[takanori at macports.org]

Revision: 73487
          http://trac.macports.org/changeset/73487
Author:   takanori at macports.org
Date:     2010-11-15 01:15:52 -0800 (Mon, 15 Nov 2010)
Log Message:
-----------
a2ps-j: Use of the special variable $# has been deprecated.

Added Paths:
-----------
    trunk/dports/print/a2ps-j/files/patch-a2ps-j.diff

Removed Paths:
-------------
    trunk/dports/print/a2ps-j/files/patch-nojconv.diff

Added: trunk/dports/print/a2ps-j/files/patch-a2ps-j.diff
===================================================================
--- trunk/dports/print/a2ps-j/files/patch-a2ps-j.diff	                        (rev 0)
+++ trunk/dports/print/a2ps-j/files/patch-a2ps-j.diff	2010-11-15 09:15:52 UTC (rev 73487)
@@ -0,0 +1,24 @@
+--- a2ps-j.orig	2010-06-25 04:54:48.000000000 +0900
++++ a2ps-j	2010-11-15 18:01:02.000000000 +0900
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl
++#!/usr/bin/env perl
+ ;#
+ ;# a2ps: ascii to ps
+ ;#
+@@ -192,7 +192,6 @@
+ 
+ if ($debug == 2) {
+     require('dumpvar.pl');
+-    local($#) = '%.6g';
+     &dumpvar('main',
+ 	     'width', 'height', 'lmargin', 'smargin', 'font_size',
+ 	     'sheet_height', 'sheet_width', 'char_width', 'skip_column',
+@@ -410,7 +409,6 @@
+     unless ($selfconvert) {
+ 	shift while @_ > 0 && $_[0] eq '';
+ 	exec('nkf', '-b', '-j', @_);
+-	exec('jconv', '-j', @_);
+     }
+     if (($file = shift) ne '') {
+ 	open(STDIN, $file) || die "$file: $!\n";

Deleted: trunk/dports/print/a2ps-j/files/patch-nojconv.diff
===================================================================
--- trunk/dports/print/a2ps-j/files/patch-nojconv.diff	2010-11-15 08:57:11 UTC (rev 73486)
+++ trunk/dports/print/a2ps-j/files/patch-nojconv.diff	2010-11-15 09:15:52 UTC (rev 73487)
@@ -1,10 +0,0 @@
---- a2ps-j~	2006-03-20 19:21:58.000000000 +0900
-+++ a2ps-j	2006-03-21 07:01:16.000000000 +0900
-@@ -410,7 +410,6 @@
-     unless ($selfconvert) {
- 	shift while @_ > 0 && $_[0] eq '';
- 	exec('nkf', '-b', '-j', @_);
--	exec('jconv', '-j', @_);
-     }
-     if (($file = shift) ne '') {
- 	open(STDIN, $file) || die "$file: $!\n";
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20101115/4904b9c0/attachment.html>