9f6f2df419
Copy from devel:languages:perl/perl-TimeDate based on submit request 28399 from user coolo OBS-URL: https://build.opensuse.org/request/show/28399 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-TimeDate?expand=0&rev=7
21 lines
697 B
Diff
21 lines
697 B
Diff
--- lib/Date/Format.pm.orig 2009-09-19 09:04:02.000000000 -0700
|
|
+++ lib/Date/Format.pm 2009-09-25 14:33:09.000000000 -0700
|
|
@@ -83,7 +83,7 @@
|
|
$tzname = sprintf("%+05d",$tzname)
|
|
unless($tzname =~ /\D/);
|
|
|
|
- $epoch = timegm(@{$time}[0..5]);
|
|
+ $epoch = timegm( @$time[0], @$time[1], @$time[2], @$time[3], @$time[4], @$time[5] );
|
|
|
|
@$me = gmtime($epoch + tz_offset($tzname) - tz_offset());
|
|
}
|
|
@@ -215,7 +215,7 @@
|
|
sub format_M { sprintf("%02d",$_[0]->[1]) }
|
|
sub format_q { sprintf("%01d",int($_[0]->[4] / 3) + 1) }
|
|
sub format_s {
|
|
- $epoch = timegm(@{$_[0]}[0..5])
|
|
+ $epoch = timegm($_[0], $_[1], $_[2], $_[3], $_[4], $_[5] )
|
|
unless defined $epoch;
|
|
sprintf("%d",$epoch)
|
|
}
|