forked from pool/perl-TimeDate
f31b1157e2
Copy from devel:languages:perl/perl-TimeDate based on submit request 38383 from user computersalat OBS-URL: https://build.opensuse.org/request/show/38383 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-TimeDate?expand=0&rev=10
13 lines
513 B
Diff
13 lines
513 B
Diff
diff -ruN TimeDate-1.20-orig/lib/Date/Format.pm TimeDate-1.20/lib/Date/Format.pm
|
|
--- TimeDate-1.20-orig/lib/Date/Format.pm 2009-12-12 12:30:06.000000000 +0000
|
|
+++ TimeDate-1.20/lib/Date/Format.pm 2010-04-20 21:15:56.049364922 +0000
|
|
@@ -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());
|
|
}
|