From febdea55777f22731974392d45f5af7aa18b0934 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 8 Sep 2019 16:11:17 +0200
Subject: [PATCH] read utf-8 input in letter frequency example

---
 barcat | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/barcat b/barcat
index 9c4741a..a5ea9f3 100755
--- a/barcat
+++ b/barcat
@@ -334,7 +334,7 @@ Commonly used after counting, for example users on the current server:
 Letter frequencies in text files:
 
     cat /usr/share/games/fortunes/*.u8 |
-    perl -CO -nE 'say for grep length, split /\PL*/, uc' |
+    perl -CS -nE 'say for grep length, split /\PL*/, uc' |
     sort | uniq -c | barcat
 
 Number of HTTP requests per day:
-- 
2.30.0