Changeset 98280

Timestamp:

Oct 1, 2012, 5:15:55 PM (12 years ago)

Author:

takanori@…

Message:

a2ps-j: applied a patch to suppress a warning message on perl 5.16
​http://www.freebsd.org/cgi/query-pr.cgi?pr=ports/170293

Location:

trunk/dports/print/a2ps-j

Files:

• Portfile (modified) (1 diff)
• files/patch-a2ps-j.diff (modified) (7 diffs)

trunk/dports/print/a2ps-j/Portfile

@@ -5 +5 @@
 name            a2ps-j
 version         1.45
-revision        3
+revision        4
 categories      print textproc japanese
 maintainers     takanori openmaintainer

trunk/dports/print/a2ps-j/files/patch-a2ps-j.diff

@@ -1 @@
---- a2ps-j.orig 2011-10-04 11:43:16.000000000 +0900
-+++ a2ps-j      2011-10-28 14:33:49.000000000 +0900
+--- a2ps-j.orig 2012-02-23 15:04:21.000000000 +0900
++++ a2ps-j      2012-10-02 01:58:37.000000000 +0900
 @@ -1,4 +1,4 @@
 -#!/usr/local/bin/perl
@@ -7 +7 @@
  ;# 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;
+-    ($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);
+ 
+@@ -192,7 +195,8 @@
  
  if ($debug == 2) {
@@ -17 +33 @@
              '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; }
@@ -34 +50 @@
      } else {
         $file = '-' if $file eq '';
-@@ -410,7 +417,6 @@
+@@ -410,7 +420,6 @@
      unless ($selfconvert) {
         shift while @_ > 0 && $_[0] eq '';
@@ -42 +58 @@
      if (($file = shift) ne '') {
         open(STDIN, $file) || die "$file: $!\n";
-@@ -476,10 +482,13 @@
+@@ -476,10 +485,13 @@
  }
  
@@ -59 +75 @@
  
      print <<"---";
-@@ -525,7 +534,8 @@
+@@ -525,7 +537,8 @@
      printf("/lines %d def\n", $linesperpage);
      printf("/columns %d def\n", $columnsperline);
@@ -69 +85 @@
         printf("/doasciimag true def /asciimagsize %f def\n", $ascii_mag);
      } else {
-@@ -548,7 +558,8 @@
+@@ -548,7 +561,8 @@
      print "%%EndProlog\n\n";
  }