532 |
$msg = qq|<span class="$class">$msg</span>|; |
$msg = qq|<span class="$class">$msg</span>|; |
533 |
} |
} |
534 |
|
|
535 |
$msg .= $spacer . |
#$msg .= $spacer . qq|<a target="editor" href="/editor+$path+$line" style="float: right;">$line</a>\n|; |
536 |
qq|<a target="editor" href="/editor+$path+$line" style="float: right;">+$line</a>\n|; |
$msg = qq|<a target="editor" href="/editor+$path+$line" style="float: right;">$line</a>$msg| |
537 |
|
. ( $spacer ? $spacer : '' ) |
538 |
|
. "\n"; # XXX <pre> needs this |
539 |
|
|
540 |
$warnings[ $pos++ % $max ] = $msg; |
$warnings[ $pos++ % $max ] = $msg; |
541 |
} |
} |
546 |
my $size = -s $path; |
my $size = -s $path; |
547 |
|
|
548 |
my $warnings = join("", |
my $warnings = join("", |
549 |
map { $warnings[ ( $pos + $_ ) % $max ] || '' } 1 .. $max |
map { $warnings[ ( $pos + $_ ) % $max ] || '' } 0 .. ( $max - 1 ) |
550 |
); |
); |
551 |
|
|
552 |
my $s = length($warnings); |
my $s = length($warnings); |