diff options
| author | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2006-01-04 19:50:58 +0000 |
|---|---|---|
| committer | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2006-01-04 19:50:58 +0000 |
| commit | c1deb24942c7ff35987fe741a9e1554b93e2a072 (patch) | |
| tree | 2b1e2fd742400e47c87016cc249fb9d63a69ac33 /bin | |
| parent | e5b8020ccc4eeead6b638358fe5a3a11659cc866 (diff) | |
| download | ATCD-c1deb24942c7ff35987fe741a9e1554b93e2a072.tar.gz | |
ChangeLogTag: Wed Jan 4 19:50:27 UTC 2006 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/ChangeLogEditor/ChangeLogEntry.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/bin/ChangeLogEditor/ChangeLogEntry.pm b/bin/ChangeLogEditor/ChangeLogEntry.pm index 23d8cfa1a87..2028dec1874 100644 --- a/bin/ChangeLogEditor/ChangeLogEntry.pm +++ b/bin/ChangeLogEditor/ChangeLogEntry.pm @@ -88,7 +88,7 @@ sub create { $remov, $confl, $unknown) = $fl->locate(@dirs); - my($entry) = scalar(localtime()); + my($entry) = scalar(gmtime()); if (defined $$confl[0]) { $entry = "ERROR: The following files have conflicts:\n"; @@ -99,8 +99,9 @@ sub create { else { my($prefix) = ' * '; - ## Remove the timezone - $entry =~ s/(:\d\d\s+)(.*)(\d\d\d\d)$/$1$3/; + ## Correct the timezone (if there is any) + my($tz) = 'UTC'; + $entry =~ s/(:\d\d\s+)(.*)(\d\d\d\d)$/$1$tz $3/; ## Add the name and email address $entry .= " $self->{'name'} <$self->{'email'}>\n\n"; |