diff options
| -rwxr-xr-x | challenge-125/jo-37/perl/ch-1.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/challenge-125/jo-37/perl/ch-1.pl b/challenge-125/jo-37/perl/ch-1.pl index 3b9f2aae65..724a769e19 100755 --- a/challenge-125/jo-37/perl/ch-1.pl +++ b/challenge-125/jo-37/perl/ch-1.pl @@ -5,6 +5,11 @@ use Test2::V0; use Math::Prime::Util qw(fordivisors sqrtint lastfor is_power); use experimental 'signatures'; +### +### I really should have been more careful. This does not work. +### Please ignore. +### + our ($tests, $examples); run_tests() if $tests || $examples; # does not return |