From b8f25cc79b56f2631ad52049fe4f815597658ec6 Mon Sep 17 00:00:00 2001
From: Michael Mikonos <127171689+mknos@users.noreply.github.com>
Date: Wed, 22 Nov 2023 11:41:52 +0800
Subject: [PATCH] pr: improve -o margin_spaces

* OpenBSD pr and GNU pr treat -o NUMBER as the number of margin spaces, but this version was printing Os
* Another difference I noted was that the page header is expected to offset based on -o, but it did not
* Tested with: perl pr -o 5 pr
---
 bin/pr | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/bin/pr b/bin/pr
index 0aa302c1..65fbe002 100755
--- a/bin/pr
+++ b/bin/pr
@@ -287,7 +287,10 @@ sub print_header {
 	my($col)=@_;		# the current column.
 	return if (!$trailer);
 
-	print "\n\n", scalar(localtime), " ";
+	print "\n\n";
+	print ' ' x $offsetspaces if $offsetspaces;
+	print scalar(localtime), " ";
+
 	if ($header) {
 		print "$header ";
 	} else {
@@ -320,7 +323,7 @@ sub printpage {
 
 	print_header($COLINFO[0]);
 	foreach my $line (1..$COLINFO[0]{oheight}) {
-		print "O"x${offsetspaces} if ($offsetspaces);
+		print ' ' x $offsetspaces if $offsetspaces;
 		foreach my $column (@COLINFO) {
 			my $pfmt;
 			my $numbering="";