- my @user_info = getpwuid( stat("$blosxom::datadir$path/$filename.$blosxom::file_extension")->uid );
- ($username, $fullname) = ($user_info[0],$user_info[6]);
+ my @user_info = getpwuid( File::stat::stat("$blosxom::datadir$path/$filename.$blosxom::file_extension")->uid );
+ ($username, $fullname) = ($user_info[0],$user_info[6] =~ m/^([^,]*)/);