-4,7 +4,7 |
* 부작용 : 알려진 것 없음 |
: |
{{{perl |
{{{#!vim perl |
sub WikiHeadingNumber { |
... |
# Cook anchor by canonicalizing $text. |
sub WikiHeadingNumber { ... # Cook anchor by canonicalizing $text. # 아래 여섯 줄은 불필요. 주석처리 # $anchor = $text; # $anchor =~ s/\<.*?\>//g; # $anchor =~ s/\W/_/g; # $anchor =~ s/__+/_/g; # $anchor =~ s/^_//; # $anchor =~ s/_$//; # $anchor = '_' . (join '_', @HeadingNumbers) unless $anchor; # Last ditch effort 이 줄을 $anchor = 'H_' . (join '_', @HeadingNumbers); # unless 뒤를 잘라서 이렇게 고친다 ... }