# HG changeset patch
# User František Kučera <franta-hg@frantovo.cz>
# Date 1409587825 -7200
# Node ID 8f0e2d4177021131c27455a8b7e0b2880f34b186
# Parent  dc83d208e86219f111675a2d3453d51a952b6a4e
prototyp: UTF-8 encoding (decoding)

diff -r dc83d208e862 -r 8f0e2d417702 prototyp/prototyp.sql
--- a/prototyp/prototyp.sql	Mon Sep 01 18:02:48 2014 +0200
+++ b/prototyp/prototyp.sql	Mon Sep 01 18:10:25 2014 +0200
@@ -139,7 +139,7 @@
 	use strict;
 	use warnings;
 	
-	use Encode; # FIXME: see below
+	use encoding "UTF-8";
 	use User::pwent;
 	
 	while (my $user = getpwent()) {
@@ -148,7 +148,7 @@
 			gid => $user->gid,
 			name => $user->name,
 			# comment => $user->comment,
-			gecos => [split(",", Encode::decode("utf8", $user->gecos))], # FIXME: ugly hack – should be properly decoded in getpwent()
+			gecos => [split(",", $user->gecos)],
 			home => $user->dir,
 			shell => $user->shell,
 			# expire => $user->expire