| Subject: | alttext and something undetected |
--- lib\Pod\Compiler.pm 2004-01-09 01:39:30.000000000 -0800
+++ lib\Pod\Compiler2.pm 2004-01-10 01:15:16.187500000 -0800
@@ -48,7 +48,7 @@
require Pod::objects;
#$Tree::DAG_Node::Debug = 1;
-$Pod::Compiler::VERSION = '0.20';
+$Pod::Compiler::VERSION = '0.21';
@Pod::Compiler::ISA = qw(Exporter Pod::Parser);
@Pod::Compiler::EXPORT = qw();
@@ -996,7 +996,13 @@
# must be an item or a "malformed" head (without "")
else {
$self->_msg('WARNING', "link L<$_> type not clear, assuming 'item' at line $line");
+ # alttext and something
+ if( /([^|]*)\|(.*)/ ){
+ $alttext = $1;
+ $node = $2;
+ } else {
$node = $_;
+ }
$type = 'item';
}