From: Richard Kojedzinszky <krichy@tvnetwork.hu>
Date: Fri, 26 Sep 2014 07:49:43 +0000 (+0200)
Subject: perl: fixed matching
X-Git-Url: http://git.neszt.hu/?a=commitdiff_plain;h=06427ec7f9008c004547ca813dc180c57ba81539;p=uwc.git

perl: fixed matching
---

diff --git a/uwc.pl b/uwc.pl
index fa5e1e1..92bb4e0 100644
--- a/uwc.pl
+++ b/uwc.pl
@@ -5,7 +5,7 @@ my %counts;
 
 while (<STDIN>) {
 	for (/([a-z']+)/goi) {
-		$counts{$1}++;
+		$counts{$_}++;
 	}
 }