This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: Confusing comment typo
[perl5.git] / op.c
diff --git a/op.c b/op.c
index c6b5ec7..fedaf67 100644 (file)
--- a/op.c
+++ b/op.c
@@ -11130,7 +11130,7 @@ Perl_ck_sort(pTHX_ OP *o)
 }
 
 /* for sort { X } ..., where X is one of
- *   $a <=> $b, $b <= $a, $a cmp $b, $b cmp $a
+ *   $a <=> $b, $b <=> $a, $a cmp $b, $b cmp $a
  * elide the second child of the sort (the one containing X),
  * and set these flags as appropriate
        OPpSORT_NUMERIC;