diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Simple/PullParserTextToken.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Pod/Simple/PullParserTextToken.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Pod/Simple/PullParserTextToken.pm b/Master/tlpkg/tlperl/lib/Pod/Simple/PullParserTextToken.pm index ed6340d598a..a7fcb0fbb16 100644 --- a/Master/tlpkg/tlperl/lib/Pod/Simple/PullParserTextToken.pm +++ b/Master/tlpkg/tlperl/lib/Pod/Simple/PullParserTextToken.pm @@ -5,7 +5,7 @@ use Pod::Simple::PullParserToken (); use strict; use vars qw(@ISA $VERSION); @ISA = ('Pod::Simple::PullParserToken'); -$VERSION = '3.14'; +$VERSION = '3.16'; sub new { # Class->new(text); my $class = shift; @@ -61,14 +61,14 @@ as calling $token->text would do. Or, if you want to alter the value, you can even do things like this: for ( ${ $token->text_r } ) { # Aliases it with $_ !! - + s/ The / the /g; # just for example - + if( 'A' eq chr(65) ) { # (if in an ASCII world) tr/\xA0/ /; tr/\xAD//d; } - + ...or however you want to alter the value... } |