use strict; use warnings; in examples

[term-progressbar.git] / examples / powers2

diff --git a/examples/powers2 b/examples/powers2
index 23147a0d39da4ce605370bdb765d4a6e595aec7d..93c5595e950279973d5bd74faf1c4714a110d4b3 100644 (file)
--- 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) {