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) {