From: Sean O'Rourke <seano@foobar.local>
Date: Sat, 12 May 2012 14:15:28 +0000 (-0600)
Subject: Bugfix.
X-Git-Url: https://repo.or.cz/w/sepia.git/commitdiff_plain/2a1f426e0a2b9dce894231312d2f7fa709106b66

Bugfix.
---

diff --git a/lib/Sepia.pm b/lib/Sepia.pm
index a04fc17..9abfa11 100644
--- a/lib/Sepia.pm
+++ b/lib/Sepia.pm
@@ -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";