next;
}
+ if ($line =~ m/xref:\S+?\[[^\]]*$/) {
+ die "possible xref spanning multiple lines in '$filename':\n(line $.): $line\n";
+ }
+ if ($line =~ m/<<((?!\>\>).)*$/) {
+ die "possible xref spanning multiple lines in '$filename':\n(line $.): $line\n";
+ }
# fix xrefs
$line =~ s/xref:([^\s\[\]]+)\[([^\]]*)\]/replace_xref(${target_env},$1,$2)/ge;
die "too many arguments...\n";
my $outfilemap = $fileinfo->{outfile}->{$env}->{$infile} ||
- die "no output file mapping '$infile => $outfile' ($env)";
+ die "no output file mapping for '$infile' ($env)";
if ($man_target eq 'html') {
$outfilemap .= '.html';
$outfilemap .= '-plain.html';
}
- die "wrong output file name '$outfile != $outfilemap' ($env)"
- if $outfile ne $outfilemap;
+ if (defined($outfile)) {
+ die "wrong output file name '$outfile != $outfilemap' ($env)"
+ if $outfile ne $outfilemap;
+ } else {
+ $outfile = $outfilemap;
+ }
defined($fileinfo->{titles}->{$env}) ||
die "unknown environment '$env'";
if (($env eq 'wiki') ||
(($env eq 'manvolnum') && ($man_target eq 'wiki'))) {
- push @$cmd, '-s';
-
if (-f "./asciidoc/mediawiki.conf") {
my $cwd = getcwd();
push @$cmd, '-b', "$cwd/asciidoc/mediawiki";