We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 5eced3c + b8f25cc commit 0549aa0Copy full SHA for 0549aa0
bin/pr
@@ -287,7 +287,10 @@ sub print_header {
287
my($col)=@_; # the current column.
288
return if (!$trailer);
289
290
- print "\n\n", scalar(localtime), " ";
+ print "\n\n";
291
+ print ' ' x $offsetspaces if $offsetspaces;
292
+ print scalar(localtime), " ";
293
+
294
if ($header) {
295
print "$header ";
296
} else {
@@ -320,7 +323,7 @@ sub printpage {
320
323
321
324
print_header($COLINFO[0]);
322
325
foreach my $line (1..$COLINFO[0]{oheight}) {
- print "O"x${offsetspaces} if ($offsetspaces);
326
327
foreach my $column (@COLINFO) {
328
my $pfmt;
329
my $numbering="";
0 commit comments