diff options
author | Karl Williamson <khw@cpan.org> | 2016-02-09 11:00:58 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2016-02-09 23:30:54 -0700 |
commit | 1354d57eb64f6082a3b61d40988a5d8b55b5ceaf (patch) | |
tree | f4505eee931ba355f37345fccb0dccb807a958ba /autodoc.pl | |
parent | 9e220f6cc75c734629a909983bf3886bd99e0a72 (diff) | |
download | perl-1354d57eb64f6082a3b61d40988a5d8b55b5ceaf.tar.gz |
autodoc.pl: Fix misspelled /[[:alpha:]]/
This typo was caught by the work for a couple of commits down the road.
Diffstat (limited to 'autodoc.pl')
-rw-r--r-- | autodoc.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/autodoc.pl b/autodoc.pl index ff548fc96b..9d41dda234 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -263,7 +263,7 @@ removed without notice.\n\n$docs" if $flags =~ /x/; sub sort_helper { # Do a case-insensitive dictionary sort, with only alphabetics # significant, falling back to using everything for determinancy - return (uc($a =~ s/[[^:alpha]]//r) cmp uc($b =~ s/[[^:alpha]]//r)) + return (uc($a =~ s/[[:^alpha:]]//r) cmp uc($b =~ s/[[:^alpha:]]//r)) || uc($a) cmp uc($b) || $a cmp $b; } |