X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=examples%2Fpowers4;h=4afc0ad8a5f6b5223ee35f1072a75328c3e8396f;hb=1194702ec43c994abcf387b52c03b8532c8d5f3c;hp=ad9353ed372e2449dd5774f107370d07c8f70594;hpb=9046fc6880bc4375c89019ef363914e61da3b5bf;p=term-progressbar.git

diff --git a/examples/powers4 b/examples/powers4
index ad9353e..4afc0ad 100644
--- a/examples/powers4
+++ b/examples/powers4
@@ -1,12 +1,17 @@
 #!/usr/bin/perl
+use strict;
+use warnings;
 
 use Term::ProgressBar 2.00;
 
 use constant MAX => 1_000_000;
 
-my $max = int($ARGV[0]+0) || MAX;
-my $progress = Term::ProgressBar->new({name => 'Powers', count => $max,
-                                       ETA => linear, });
+my $max = int($ARGV[0] || MAX);
+my $progress = Term::ProgressBar->new({
+	name => 'Powers',
+	count => $max,
+	ETA => 'linear',
+});
 #$progress->minor(0);
 my $next_update = 0;