$text = $reftext if !length($text);
+ die "xref: no text for '$blockid'\n" if !$text;
+
return "$link\[$text\]";
}
sub prepare_adoc_file {
my ($filename, $attributes) = @_;
+
return if $prepared_files->{$filename};
print "PREPARE $filename\n";
# fix xrefs
$line =~ s/xref:([^\s\[\]]+)\[([^\]]*)\]/replace_wiki_xref($1,$2)/ge;
+ $line =~ s/<<([^\s,\[\]]+)(?:,(.*?))?>>/replace_wiki_xref($1,$2)/ge;
print $outfh $line;
}