1 files changed, 1 insertions, 7 deletions
diff --git a/script/qr-color.pl b/script/qr-color.pl
index 807ec25..2a4d7f5 100644
--- a/script/qr-color.pl
+++ b/script/qr-color.pl
@@ -38,13 +38,7 @@ my $result = GridFiller::Result::Pango->new({
 
 $filler->result($result);
 $filler->status->mode('longest');
-$filler->status->length(
-    sub {
-        my $p = $result->layout_for_word(shift);
-        my ($w,$h) = $p->get_pixel_size;
-        return int(0.5 + $w / $result->cell_size);
-    }
-);
+$filler->status->length($result->length_closure);
 
 $filler->fill();