Bugfix.
authorSean O'Rourke <seano@foobar.local>
Sat, 12 May 2012 14:15:28 +0000 (12 08:15 -0600)
committerSean O'Rourke <seano@foobar.local>
Sat, 12 May 2012 14:15:28 +0000 (12 08:15 -0600)
lib/Sepia.pm

index a04fc17..9abfa11 100644 (file)
@@ -1210,7 +1210,7 @@ sub repl_help
         my $full = $RK{$args};
         if ($full) {
             my $short = $REPL_SHORT{$full};
-            my $flow = flow($width - length $short - 4, $REPL_DOC{$full});
+            my $flow = flow($width - length($short) - 4, $REPL_DOC{$full});
             chomp $flow;
             $flow =~ s/(.)\n/"$1\n".(' 'x (4 + length $short))/eg;
             print "$short    $flow\n";