From: Sean O'Rourke Date: Sat, 12 May 2012 13:46:51 +0000 (-0600) Subject: Tweak. X-Git-Url: https://repo.or.cz/w/sepia.git/commitdiff_plain/7c8d2149469eb4732a88017273ef7f6b8941d566 Tweak. --- diff --git a/lib/Sepia.pm b/lib/Sepia.pm index 8f3113c..a04fc17 100644 --- a/lib/Sepia.pm +++ b/lib/Sepia.pm @@ -878,7 +878,7 @@ sub Dump sub flow { - my $width = shift()-1; + my $width = shift()-2; my $format = "^" . ('<' x $width) . "~~\n"; local $^A = ''; formline($format, @_);