1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-252/robbie-hatley/perl/ch-2.pl b/challenge-252/robbie-hatley/perl/ch-2.pl
index 4edb5e4b68..eb4bb4dfa3 100755
--- a/challenge-252/robbie-hatley/perl/ch-2.pl
+++ b/challenge-252/robbie-hatley/perl/ch-2.pl
@@ -77,7 +77,7 @@ sub is_pos_int ($x) {
    return $x =~ m/^[1-9]\d*$/;
 }
 
-# Return array of unique ints adding to $n:
+# Return array of $n unique ints adding to 0:
 sub usz ($n) {
    my @a = ();
    push @a, -int($n/2)..-1;