1 files changed, 5 insertions, 6 deletions
diff --git a/bin/ChangeLogEditor/ChangeLogEntry.pm b/bin/ChangeLogEditor/ChangeLogEntry.pm
index 2028dec1874..12675cf5d1a 100644
--- a/bin/ChangeLogEditor/ChangeLogEntry.pm
+++ b/bin/ChangeLogEditor/ChangeLogEntry.pm
@@ -13,7 +13,7 @@ package ChangeLogEntry;
 use strict;
 use File::Basename;
 
-use FileLocatorFactory;
+use FileLocator;
 
 # ************************************************************
 # Subroutine Section
@@ -83,12 +83,12 @@ sub sortFileList {
 sub create {
   my($self)  = shift;
   my(@dirs)  = @_;
-  my($fl)    = FileLocatorFactory::create();
+  my($fl)    = new FileLocator();
   my($modif,
      $remov,
      $confl,
      $unknown) = $fl->locate(@dirs);
-  my($entry) = scalar(gmtime());
+  my($entry) = scalar(localtime());
 
   if (defined $$confl[0]) {
     $entry = "ERROR: The following files have conflicts:\n";
@@ -99,9 +99,8 @@ sub create {
   else {
     my($prefix) = '        * ';
 
-    ## Correct the timezone (if there is any)
-    my($tz) = 'UTC';
-    $entry =~ s/(:\d\d\s+)(.*)(\d\d\d\d)$/$1$tz $3/;
+    ## Remove the timezone
+    $entry =~ s/(:\d\d\s+)(.*)(\d\d\d\d)$/$1$3/;
 
     ## Add the name and email address
     $entry .= "  $self->{'name'}  <$self->{'email'}>\n\n";