Permalink
Browse files

[ufo] fixed logic bug

  • Loading branch information...
1 parent 356ddd8 commit 1011bf0790195c57f8b4defffadab2fdc60d32dd @masak committed Jun 2, 2010
Showing with 2 additions and 2 deletions.
  1. +2 −2 ufo
View
4 ufo
@@ -69,11 +69,11 @@ my @sources = map { &module-name-to-path($_) }, @order;
my $sources = 'SOURCES=';
my $line-length = 0;
for @sources -> $source {
- $line-length += $source.chars;
+ $line-length += $source.chars + 1;
if $line-length > 65 {
# SOURCES=
$sources ~= "\\\n ";
- $line-length = 0;
+ $line-length = $source.chars + 1;
}
$sources ~= $source ~ ' ';
}

0 comments on commit 1011bf0

Please sign in to comment.