X-Git-Url: https://git.donarmstrong.com/?p=term-progressbar.git;a=blobdiff_plain;f=examples%2Fpowers2;fp=examples%2Fpowers2;h=93c5595e950279973d5bd74faf1c4714a110d4b3;hp=23147a0d39da4ce605370bdb765d4a6e595aec7d;hb=1194702ec43c994abcf387b52c03b8532c8d5f3c;hpb=9046fc6880bc4375c89019ef363914e61da3b5bf;ds=sidebyside

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