Changeset 98280


Ignore:
Timestamp:
Oct 1, 2012, 5:15:55 PM (7 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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/dports/print/a2ps-j/Portfile

    r86539 r98280  
    55name            a2ps-j
    66version         1.45
    7 revision        3
     7revision        4
    88categories      print textproc japanese
    99maintainers     takanori openmaintainer
  • trunk/dports/print/a2ps-j/files/patch-a2ps-j.diff

    r86539 r98280  
    1 --- a2ps-j.orig 2011-10-04 11:43:16.000000000 +0900
    2 +++ a2ps-j      2011-10-28 14:33:49.000000000 +0900
     1--- a2ps-j.orig 2012-02-23 15:04:21.000000000 +0900
     2+++ a2ps-j      2012-10-02 01:58:37.000000000 +0900
    33@@ -1,4 +1,4 @@
    44-#!/usr/local/bin/perl
     
    77 ;# a2ps: ascii to ps
    88 ;#
    9 @@ -192,7 +192,8 @@
     9@@ -56,9 +56,12 @@
     10 @param_b4 = (10.15, 14.31, 1.40, 1.2, 8.50, 9.5, 0.29, 0.22, 0.08, 'b4');
     11 sub paper {
     12     local(*param) = 'param_' . $_[0];
     13-    die "Unknown paper type: $_[0]\n" unless defined @param;
     14-    ($width, $height, $lmargin, $smargin, $fontsize_l, $fontsize_p,
     15-     $portrait_header, $landscape_header, $paper_adjust, $paper_tray) = @param;
     16+    if (@param) {
     17+       ($width, $height, $lmargin, $smargin, $fontsize_l, $fontsize_p,
     18+        $portrait_header, $landscape_header, $paper_adjust, $paper_tray) = @param;
     19+    } else {
     20+       die "Unknown paper type: $_[0]\n";
     21+    }
     22 }
     23 &paper($default_paper);
     24 
     25@@ -192,7 +195,8 @@
    1026 
    1127 if ($debug == 2) {
     
    1733             'width', 'height', 'lmargin', 'smargin', 'font_size',
    1834             'sheet_height', 'sheet_width', 'char_width', 'skip_column',
    19 @@ -208,8 +209,14 @@
     35@@ -208,8 +212,14 @@
    2036     $file = shift;
    2137     if ($file && !-r $file) { warn "$file: $!\n"; next; }
     
    3450     } else {
    3551        $file = '-' if $file eq '';
    36 @@ -410,7 +417,6 @@
     52@@ -410,7 +420,6 @@
    3753     unless ($selfconvert) {
    3854        shift while @_ > 0 && $_[0] eq '';
     
    4258     if (($file = shift) ne '') {
    4359        open(STDIN, $file) || die "$file: $!\n";
    44 @@ -476,10 +482,13 @@
     60@@ -476,10 +485,13 @@
    4561 }
    4662 
     
    5975 
    6076     print <<"---";
    61 @@ -525,7 +534,8 @@
     77@@ -525,7 +537,8 @@
    6278     printf("/lines %d def\n", $linesperpage);
    6379     printf("/columns %d def\n", $columnsperline);
     
    6985        printf("/doasciimag true def /asciimagsize %f def\n", $ascii_mag);
    7086     } else {
    71 @@ -548,7 +558,8 @@
     87@@ -548,7 +561,8 @@
    7288     print "%%EndProlog\n\n";
    7389 }
Note: See TracChangeset for help on using the changeset viewer.