localtime gives the hour of the day which I don't want for

changelog printings

1 files changed, 2 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index 9afe61b4..638c9f30 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -121,8 +121,9 @@ sub extract_header {
 	    $p->update_header($headersdir . $p->header_filename) or log::l("Warning, could not extract header!"), goto header_non_available;
 	    rm_rf($headersdir);
 	    add2hash($pkg, { summary => $p->summary, description => beautify_description($p->description) });
+	    my $localtime2changelog = sub { scalar(localtime($_[0])) =~ /(.*) \S+ (\d{4})$/; "$1 $2" };
 	    @$max_info_in_descr and add2hash($pkg, { files => join("\n", $p->files),
-						     changelog => join("\n", mapn { "* ".scalar(localtime($_[2]))." $_[0]\n\n$_[1]\n" }
+						     changelog => join("\n", mapn { "* ".$localtime2changelog->($_[2])." $_[0]\n\n$_[1]\n" }
 							   [ $p->changelog_name ], [ $p->changelog_text ], [ $p->changelog_time ]) });
 	    $p->pack_header;
 	} else {