diff options
| -rw-r--r-- | challenge-012/joe-tym/perl5/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-012/joe-tym/perl5/ch-1.pl b/challenge-012/joe-tym/perl5/ch-1.pl index 4da1bd55e1..84d2016425 100644 --- a/challenge-012/joe-tym/perl5/ch-1.pl +++ b/challenge-012/joe-tym/perl5/ch-1.pl @@ -134,7 +134,7 @@ sub primesfrom2to { sub is_prime { my $primes = shift; - my $input = shift || 'die need input'; + my $input = shift || die 'need input'; #print Dumper($input, $primes->max()); if ($input > $primes->max()) { die "input $input is greater than the maximum prime calculated ".$primes->max(); |