perl/perl-TimeDate
SHA256
8
0
Fork 0
forked from pool/perl-TimeDate
Code Pull Requests Activity

Accepting request 38383 from devel:languages:perl

Browse Source 
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
This commit is contained in:
OBS User autobuild
2010-04-20 23:54:15 +00:00
committed by Git OBS Bridge
parent a686196984
commit f31b1157e2
3 changed files with 32 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
TimeDate-deprecated_array_use.patch
View File

@@ -1,5 +1,6 @@
--- 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
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/);
@@ -9,12 +10,3 @@
@$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)
}