--- trunk/lib/Frey/Web.pm 2008/11/28 23:34:44 612 +++ trunk/lib/Frey/Web.pm 2008/11/29 00:06:11 613 @@ -532,8 +532,10 @@ $msg = qq|$msg|; } - $msg .= $spacer . - qq|+$line\n|; + #$msg .= $spacer . qq|$line\n|; + $msg = qq|$line$msg| + . ( $spacer ? $spacer : '' ) + . "\n"; # XXX
needs this $warnings[ $pos++ % $max ] = $msg; } @@ -544,7 +546,7 @@ my $size = -s $path; my $warnings = join("", - map { $warnings[ ( $pos + $_ ) % $max ] || '' } 1 .. $max + map { $warnings[ ( $pos + $_ ) % $max ] || '' } 0 .. ( $max - 1 ) ); my $s = length($warnings);