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