Attachment 117776 Details for Bug 159903 – file.diff

[patch] file.diff

file.diff (text/plain), 1.70 KB, created by kenji.rikitake on 2011-08-19 10:00:27 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: kenji.rikitake

Created: 2011-08-19 10:00:27 UTC

Size: 1.70 KB

patch

obsolete

>--- a2ps-j.orig	2011-08-19 16:37:34.000000000 +0900
>+++ a2ps-j	2011-08-19 17:42:00.000000000 +0900
>@@ -209,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 '';
>@@ -477,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 <<"---";
>@@ -526,7 +535,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 {
>@@ -549,7 +559,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;

Actions: View | Diff

Attachments on bug 159903: 117776