diff options
| author | Duane Powell <duane.r.powell@gmail.com> | 2019-11-04 09:25:43 -0600 |
|---|---|---|
| committer | andrezgz <andrezgz@gmail.com> | 2019-11-05 18:32:05 -0300 |
| commit | ce9cf9de0a30f7ac432ed202da899d26f99aa9ec (patch) | |
| tree | f882b53f911908abb8906768085e2157ba34cc1b | |
| parent | 7ad989e5c7a8ed10e64d219c43483491956bd843 (diff) | |
| download | perlweeklychallenge-club-ce9cf9de0a30f7ac432ed202da899d26f99aa9ec.tar.gz perlweeklychallenge-club-ce9cf9de0a30f7ac432ed202da899d26f99aa9ec.tar.bz2 perlweeklychallenge-club-ce9cf9de0a30f7ac432ed202da899d26f99aa9ec.zip | |
change underscore _ to dashes -
| -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 { |