diff options
Diffstat (limited to 'sbosrcarch')
-rwxr-xr-x | sbosrcarch | 8 |
1 files changed, 2 insertions, 6 deletions
@@ -1706,16 +1706,12 @@ sub write_status_file { my $content = shift; init_git(); - #open my $fh, "git log --date=format:%Y%m%d --pretty=format:'%h %ci: %an, %s' -n1|" or die "$!"; - open my $fh, "TZ=UTC git log --date=format-local:'%Y-%m-%d %H:%M:%S %Z' --pretty=format:'%h %cd: %an, %s' -n1" or die "$!"; - my $logline = <$fh>; - close $fh; + chomp(my $logline = `TZ=UTC git log --date=format-local:'%Y-%m-%d %H:%M:%S %Z' --pretty=format:'%h %cd: %an, %s' -n1`; chdir($archivedir) or die "$archivedir: $!"; rename("STATUS", "STATUS.old"); # ignore errors - open($fh, '>', "STATUS") or return; + open(my $fh, '>', "STATUS") or return; - #chomp(my $timestamp = `date '+%Y-%m-%d %H:%M:%S %z'`); chomp(my $timestamp = `TZ=UTC date '+%Y-%m-%d %H:%M:%S %Z'`); print $fh <<EOF; |