diff options
| author | scheidell <scheidell@FreeBSD.org> | 2012-08-08 03:45:32 +0800 |
|---|---|---|
| committer | scheidell <scheidell@FreeBSD.org> | 2012-08-08 03:45:32 +0800 |
| commit | 55285d7a8b71a5e78cc6a219ddcf17806498dbdf (patch) | |
| tree | abe1579ed220364323750b6c8ed5a8c6d318ee16 /japanese/a2ps | |
| parent | f4deab2fa2e2437606289be1f3b4f3a809533d7c (diff) | |
| download | freebsd-ports-gnome-55285d7a8b71a5e78cc6a219ddcf17806498dbdf.tar.gz freebsd-ports-gnome-55285d7a8b71a5e78cc6a219ddcf17806498dbdf.tar.zst freebsd-ports-gnome-55285d7a8b71a5e78cc6a219ddcf17806498dbdf.zip | |
- Eliminate perl 5.16 defined() array error.
- No PORTREVISION bump (its just an error, and only on 5.16)
PR: ports/170293
Submitted by: Kenji Rikitake <kenji.rikitake@acm.org>
Approved by: port@ maintainer
Diffstat (limited to 'japanese/a2ps')
| -rw-r--r-- | japanese/a2ps/files/patch-aa | 26 |
1 files changed, 20 insertions, 6 deletions
diff --git a/japanese/a2ps/files/patch-aa b/japanese/a2ps/files/patch-aa index f153be5be209..2d8151ff15e4 100644 --- a/japanese/a2ps/files/patch-aa +++ b/japanese/a2ps/files/patch-aa @@ -1,12 +1,26 @@ --- a2ps-j.orig 2011-09-19 17:05:32.000000000 +0900 -+++ a2ps-j 2011-09-19 17:09:07.000000000 +0900 ++++ a2ps-j 2012-08-07 08:58:02.000000000 -0400 @@ -1,4 +1,4 @@ -#!/usr/local/bin/perl +#!/usr/bin/perl ;# ;# a2ps: ascii to ps ;# -@@ -192,7 +192,8 @@ +@@ -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; ++ 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); + +@@ -192,7 +195,8 @@ if ($debug == 2) { require('dumpvar.pl'); @@ -16,7 +30,7 @@ &dumpvar('main', 'width', 'height', 'lmargin', 'smargin', 'font_size', 'sheet_height', 'sheet_width', 'char_width', 'skip_column', -@@ -208,8 +209,14 @@ +@@ -208,8 +212,14 @@ $file = shift; if ($file && !-r $file) { warn "$file: $!\n"; next; } if ($jisconvert) { @@ -33,7 +47,7 @@ open(F, "-|") || &jis($file); } else { $file = '-' if $file eq ''; -@@ -476,10 +483,13 @@ +@@ -476,10 +486,13 @@ } sub print_header { @@ -49,7 +63,7 @@ local($orientation) = $portrait ? "Portrait" : "Landscape"; print <<"---"; -@@ -525,7 +535,8 @@ +@@ -525,7 +538,8 @@ printf("/lines %d def\n", $linesperpage); printf("/columns %d def\n", $columnsperline); $sublabel = $default_sublabel unless defined $sublabel; @@ -59,7 +73,7 @@ if ($ascii_mag) { printf("/doasciimag true def /asciimagsize %f def\n", $ascii_mag); } else { -@@ -548,7 +559,8 @@ +@@ -548,7 +562,8 @@ print "%%EndProlog\n\n"; } |