diff options
| -rwxr-xr-x | challenge-033/duane-powell/perl5/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-033/duane-powell/perl5/ch-2.pl b/challenge-033/duane-powell/perl5/ch-2.pl index af0033df61..0f18a6fe39 100755 --- a/challenge-033/duane-powell/perl5/ch-2.pl +++ b/challenge-033/duane-powell/perl5/ch-2.pl @@ -15,7 +15,7 @@ sub head_print { my $d = shift; print " x|"; print sprintf "%4s", $_ foreach (1 .. $d); - print "\n___+", "____" x $d, "\n"; + print "\n---+", "----" x $d, "\n"; } sub body_print { |