Hello,
I've been playing with Pod::Simple for a while and have some
suggestions...
[Pod::Simple::PullParser]
If I've translated the section titles (Lets say I've changed
"=head1 NAME" to "=head1 AD"), the module does not see the
title (or accept =head1 AD section as a title -- AD means NAME).
There are two lines of code that controls the
behavior of the module on this subject:
[in Pod::Simple::PullParser]
LINE 296 )) =~ m{<head1>NAME</head1><Para>(X|</?[BCIFLS]>)+</Para>$}s
LINE 309 and !( $1 eq '1' and $2 eq 'NAME' )
Is it possible to change the hard-coded "NAME" to a variable?
Or an object table like $self->{'NAME_SECTION'} ?
And a second question. Pod::Simple::HTML works fine with Turkish
characters, if it does not use escaping with ord()
[in Pod::Simple::HTML]
148 $it =~
s/([^\._abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg
149 if defined $it;
325 $x =~ s/([^\n\t
!\#\$\%\(\)\*\+,\.\~\/\:\;[EMAIL
PROTECTED]|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
331 $x =~ s/([^\n\t
!\#\$\%\(\)\*\+,\.\~\/\:\;[EMAIL
PROTECTED]|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
it will be great if there is a control to by-pass these
escaping methods...
--
+++ GMX - Mail, Messaging & more http://www.gmx.net +++
Bitte l�cheln! Fotogalerie online mit GMX ohne eigene Homepage!
