X-Git-Url: http://git.shiar.net/barcat.git/blobdiff_plain/df0c8de6d8a58b68a94308ef203ee685d6e2fbd9..2e10a32f7851b523529febb4e002f3df421568a7:/barcat

diff --git a/barcat b/barcat
index b0237c4..8796248 100755
--- a/barcat
+++ b/barcat
@@ -162,6 +162,7 @@ while (defined ($_ = $opt{input} ? shift @{ $opt{input} } : readline)) {
 			$_ = substr $_, 0, 2;
 		}
 		elsif (length > $trimpos) {
+			# cut and replace (intentional lvalue for speed, contrary to PBP)
 			substr($_, $trimpos - 1) = '…';
 		}
 	}