diff --git a/common/bin/iso8601 b/common/bin/iso8601 index 5a5515b..faf5e89 100755 --- a/common/bin/iso8601 +++ b/common/bin/iso8601 @@ -5,9 +5,8 @@ use warnings; use POSIX qw(strftime); my $now = time; -my $local_now = localtime $now; -my $tz = strftime '%z', $local_now; +my $tz = strftime(('%z', (localtime $now))); $tz =~ s/(\d{2})(\d{2})/$1:$2/smx; -my $time = strftime '%Y-%m-%dT%H:%M:%S', $local_now; +my $time = strftime('%Y-%m-%dT%H:%M:%S', (localtime $now)); print "$time$tz\n"; exit 0;