diff options
| author | Marc Green <marcgreen@cpan.org> | 2011-06-24 12:21:23 -0400 |
|---|---|---|
| committer | Marc Green <marcgreen@cpan.org> | 2011-10-31 13:26:41 -0400 |
| commit | aa71dea9f7a17b1f65de5c46dfbb7b8bd137d432 (patch) | |
| tree | 24100cc381f004858f83ff12f86fc3fa854f8536 /ext/Pod-Html | |
| parent | 1d7ed44a3073f21892eceff9e92a17e20ac0cdc3 (diff) | |
| download | perl-aa71dea9f7a17b1f65de5c46dfbb7b8bd137d432.tar.gz | |
Don't uc(), keep case the same
Diffstat (limited to 'ext/Pod-Html')
| -rw-r--r-- | ext/Pod-Html/t/old/old2new.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Pod-Html/t/old/old2new.pl b/ext/Pod-Html/t/old/old2new.pl index cae9c14922..7d0e5ccf0a 100644 --- a/ext/Pod-Html/t/old/old2new.pl +++ b/ext/Pod-Html/t/old/old2new.pl @@ -42,7 +42,7 @@ while (<>) { # index elements # Note: only works for sections w/o inner <ul>s b/c new Pod::Html handles them differently s|<li><a href="#(.+?)">(.+?)(?{ (\1 =~ tr/_/ /r) eq lc(\2) })</a></li>| - '<li><a href="#' . uc($1 =~ tr/_/-/r) . "\">$2</a></li>"|eg; + '<li><a href="#' . $2 =~ tr/_/-/r . "\">$2</a></li>"|eg; # anchored =head1 -> id'd =head1 s#<h(\d)><a name="(.+?)">(.+?)(?{ (\2 =~ tr/_/ /r) eq lc(\3) })</a></h\1># |