X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=examples%2Fpowers2;h=93c5595e950279973d5bd74faf1c4714a110d4b3;hb=c84b176b57423f679ce49f4ffe21b4069151bab0;hp=23147a0d39da4ce605370bdb765d4a6e595aec7d;hpb=3797cda1b0da9caa24c7ff35e910e1f318c77918;p=term-progressbar.git diff --git a/examples/powers2 b/examples/powers2 index 23147a0..93c5595 100644 --- a/examples/powers2 +++ b/examples/powers2 @@ -1,10 +1,12 @@ #!/usr/bin/perl +use strict; +use warnings; use Term::ProgressBar 2.00; use constant MAX => 100_000; -my $max = int($ARGV[0]+0) || MAX; +my $max = int($ARGV[0] || MAX); my $progress = Term::ProgressBar->new($max); for (0..$max) {