head	1.1;
access;
symbols
	pkgsrc-2026Q1:1.1.0.106
	pkgsrc-2026Q1-base:1.1
	pkgsrc-2025Q4:1.1.0.104
	pkgsrc-2025Q4-base:1.1
	pkgsrc-2025Q3:1.1.0.102
	pkgsrc-2025Q3-base:1.1
	pkgsrc-2025Q2:1.1.0.100
	pkgsrc-2025Q2-base:1.1
	pkgsrc-2025Q1:1.1.0.98
	pkgsrc-2025Q1-base:1.1
	pkgsrc-2024Q4:1.1.0.96
	pkgsrc-2024Q4-base:1.1
	pkgsrc-2024Q3:1.1.0.94
	pkgsrc-2024Q3-base:1.1
	pkgsrc-2024Q2:1.1.0.92
	pkgsrc-2024Q2-base:1.1
	pkgsrc-2024Q1:1.1.0.90
	pkgsrc-2024Q1-base:1.1
	pkgsrc-2023Q4:1.1.0.88
	pkgsrc-2023Q4-base:1.1
	pkgsrc-2023Q3:1.1.0.86
	pkgsrc-2023Q3-base:1.1
	pkgsrc-2023Q2:1.1.0.84
	pkgsrc-2023Q2-base:1.1
	pkgsrc-2023Q1:1.1.0.82
	pkgsrc-2023Q1-base:1.1
	pkgsrc-2022Q4:1.1.0.80
	pkgsrc-2022Q4-base:1.1
	pkgsrc-2022Q3:1.1.0.78
	pkgsrc-2022Q3-base:1.1
	pkgsrc-2022Q2:1.1.0.76
	pkgsrc-2022Q2-base:1.1
	pkgsrc-2022Q1:1.1.0.74
	pkgsrc-2022Q1-base:1.1
	pkgsrc-2021Q4:1.1.0.72
	pkgsrc-2021Q4-base:1.1
	pkgsrc-2021Q3:1.1.0.70
	pkgsrc-2021Q3-base:1.1
	pkgsrc-2021Q2:1.1.0.68
	pkgsrc-2021Q2-base:1.1
	pkgsrc-2021Q1:1.1.0.66
	pkgsrc-2021Q1-base:1.1
	pkgsrc-2020Q4:1.1.0.64
	pkgsrc-2020Q4-base:1.1
	pkgsrc-2020Q3:1.1.0.62
	pkgsrc-2020Q3-base:1.1
	pkgsrc-2020Q2:1.1.0.58
	pkgsrc-2020Q2-base:1.1
	pkgsrc-2020Q1:1.1.0.38
	pkgsrc-2020Q1-base:1.1
	pkgsrc-2019Q4:1.1.0.60
	pkgsrc-2019Q4-base:1.1
	pkgsrc-2019Q3:1.1.0.56
	pkgsrc-2019Q3-base:1.1
	pkgsrc-2019Q2:1.1.0.54
	pkgsrc-2019Q2-base:1.1
	pkgsrc-2019Q1:1.1.0.52
	pkgsrc-2019Q1-base:1.1
	pkgsrc-2018Q4:1.1.0.50
	pkgsrc-2018Q4-base:1.1
	pkgsrc-2018Q3:1.1.0.48
	pkgsrc-2018Q3-base:1.1
	pkgsrc-2018Q2:1.1.0.46
	pkgsrc-2018Q2-base:1.1
	pkgsrc-2018Q1:1.1.0.44
	pkgsrc-2018Q1-base:1.1
	pkgsrc-2017Q4:1.1.0.42
	pkgsrc-2017Q4-base:1.1
	pkgsrc-2017Q3:1.1.0.40
	pkgsrc-2017Q3-base:1.1
	pkgsrc-2017Q2:1.1.0.36
	pkgsrc-2017Q2-base:1.1
	pkgsrc-2017Q1:1.1.0.34
	pkgsrc-2017Q1-base:1.1
	pkgsrc-2016Q4:1.1.0.32
	pkgsrc-2016Q4-base:1.1
	pkgsrc-2016Q3:1.1.0.30
	pkgsrc-2016Q3-base:1.1
	pkgsrc-2016Q2:1.1.0.28
	pkgsrc-2016Q2-base:1.1
	pkgsrc-2016Q1:1.1.0.26
	pkgsrc-2016Q1-base:1.1
	pkgsrc-2015Q4:1.1.0.24
	pkgsrc-2015Q4-base:1.1
	pkgsrc-2015Q3:1.1.0.22
	pkgsrc-2015Q3-base:1.1
	pkgsrc-2015Q2:1.1.0.20
	pkgsrc-2015Q2-base:1.1
	pkgsrc-2015Q1:1.1.0.18
	pkgsrc-2015Q1-base:1.1
	pkgsrc-2014Q4:1.1.0.16
	pkgsrc-2014Q4-base:1.1
	pkgsrc-2014Q3:1.1.0.14
	pkgsrc-2014Q3-base:1.1
	pkgsrc-2014Q2:1.1.0.12
	pkgsrc-2014Q2-base:1.1
	pkgsrc-2014Q1:1.1.0.10
	pkgsrc-2014Q1-base:1.1
	pkgsrc-2013Q4:1.1.0.8
	pkgsrc-2013Q4-base:1.1
	pkgsrc-2013Q3:1.1.0.6
	pkgsrc-2013Q3-base:1.1
	pkgsrc-2013Q2:1.1.0.4
	pkgsrc-2013Q2-base:1.1
	pkgsrc-2013Q1:1.1.0.2
	pkgsrc-2013Q1-base:1.1;
locks; strict;
comment	@# @;


1.1
date	2013.01.22.10.18.42;	author mef;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Changes to fix Can't locate flush.pl in @@INC ( .... based on PR pkg/47484
with patches/patch-ab,  and some more as (3) and (4):
(1) Add patch-ab to eliminate old-fashioned flush.pl which causes
   error as:
   Can't locate flush.pl in @@INC ( ....

(2) patch-ab also includes:
  - Eliminate old-fashioned call of ctime.pl
  - Eliminate non-supported '$#'
  - Rename 'sub date' to be more specific name 'sub a2ps_date'
   This patch is derived from
     http://trac.macports.com/changeset/86539

(3) Add comment on patch-aa from cvs log.

(4) Add LICENSE=mit.
@
text
@$NetBSD$

(1) Eliminate old-fashioned call for flush.pl and ctime.pl
(2) Eliminate non-supported '$#'
(3) Rename date to be more specific name a2ps_date
This patch is derived from
  http://trac.macports.com/changeset/86539

--- a2ps.pl-1.45~	2013-01-22 09:52:48.000000000 +0900
+++ a2ps.pl-1.45	2013-01-22 10:00:30.000000000 +0900
@@@@ -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',
@@@@ -208,8 +209,14 @@@@
     $file = shift;
     if ($file && !-r $file) { warn "$file: $!\n"; next; }
     if ($jisconvert) {
-	require 'flush.pl';
-	&flush(STDOUT);
+        # flush.pl obsolete (originally in Perl 4) 
+ 	# replaced with equivalent code of &flush(STDOUT) 
+ 	local($old_stdout) = select(STDOUT); 
+ 	$| = 1; 
+ 	print ""; 
+ 	$| = 0; 
+ 	select($old_stdout); 
+ 	# end of equivalent code 
 	open(F, "-|") || &jis($file);
     } else {
 	$file = '-' if $file eq '';
@@@@ -476,10 +483,13 @@@@
 }
 
 sub print_header {
-    require('ctime.pl');
     return if $header_is_printed++;
 
-    chop(local($date) = &ctime(time));
+    # ctime.pl obsolete (originally in Perl 4) 
+    # ctime.pl behaves differently when TZ is not set, 
+    # but the behavior will not affect the PostScript file details 
+    local($date) = scalar localtime; 
+
     local($orientation) = $portrait ? "Portrait" : "Landscape";
 
     print <<"---";
@@@@ -523,7 +533,8 @@@@
     printf("/lines %d def\n", $linesperpage);
     printf("/columns %d def\n", $columnsperline);
     $sublabel = $default_sublabel unless defined $sublabel;
-    print "/date (", &date($sublabel, time), ") def\n";
+    # function name changed to a2ps_date to avoid confusion 
+     print "/date (", &a2ps_date($sublabel, time), ") def\n"; 
     if ($ascii_mag) {
 	printf("/doasciimag true def /asciimagsize %f def\n", $ascii_mag);
     } else {
@@@@ -546,7 +557,8 @@@@
     print "%%EndProlog\n\n";
 }
 
-sub date {
+# function name changed to a2ps_date to avoid confusion 
+    sub a2ps_date { 
     local($_, $time) = @@_;
     local($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime($time);
     $year += 1900;
@