From d3f083656f13f2e00fcc7d789679c7769ab0f225 Mon Sep 17 00:00:00 2001 From: brian d foy Date: Tue, 18 Jul 2023 10:23:58 -0400 Subject: [PATCH] Fix missing =back in pod #206 --- bin/bcd | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/bin/bcd b/bin/bcd index b65d879e..8a2a3304 100644 --- a/bin/bcd +++ b/bin/bcd @@ -85,7 +85,7 @@ sub printonecard { my $ustr = uc $str; # top of card - print q{ }, '_' x $Cols, "\n"; + print q{ }, '_' x $Cols, "\n"; # line of text. Leave a blank if the character doesn't have # a hole pattern. @@ -100,7 +100,7 @@ sub printonecard { } my $remain = $Cols - scalar(@chars); - print q{ } x $remain, "|\n"; + print q{ } x $remain, "|\n"; # 12 rows of potential holes; output a ']', which looks kind of # like a hole, if the appropriate bit is set in the Holes[] table. @@ -168,6 +168,8 @@ The following options are available: Create punch cards with 80 columns. The default is 48 columns. +=back + =head1 AUTHOR Written by Steve Hayman. Translated to Perl by Michael Mikonos.