r73589 - in /branches/upstream/libdatetime-perl/current: ./ lib/ lib/DateTime/ t/

periapt-guest at users.alioth.debian.org periapt-guest at users.alioth.debian.org
Tue Apr 26 06:11:21 UTC 2011 

Author: periapt-guest
Date: Tue Apr 26 06:08:50 2011
New Revision: 73589

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=73589
Log:
[svn-upgrade] new version libdatetime-perl (0.6800)

Modified:
    branches/upstream/libdatetime-perl/current/Build.PL
    branches/upstream/libdatetime-perl/current/Changes
    branches/upstream/libdatetime-perl/current/META.json
    branches/upstream/libdatetime-perl/current/META.yml
    branches/upstream/libdatetime-perl/current/README
    branches/upstream/libdatetime-perl/current/SIGNATURE
    branches/upstream/libdatetime-perl/current/dist.ini
    branches/upstream/libdatetime-perl/current/lib/DateTime.pm
    branches/upstream/libdatetime-perl/current/lib/DateTime/Duration.pm
    branches/upstream/libdatetime-perl/current/lib/DateTime/Helpers.pm
    branches/upstream/libdatetime-perl/current/lib/DateTime/Infinite.pm
    branches/upstream/libdatetime-perl/current/lib/DateTime/LeapSecond.pm
    branches/upstream/libdatetime-perl/current/lib/DateTimePP.pm
    branches/upstream/libdatetime-perl/current/lib/DateTimePPExtra.pm
    branches/upstream/libdatetime-perl/current/t/13strftime.t
    branches/upstream/libdatetime-perl/current/t/release-pp-13strftime.t

Modified: branches/upstream/libdatetime-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/Build.PL?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/Build.PL (original)
+++ branches/upstream/libdatetime-perl/current/Build.PL Tue Apr 26 06:08:50 2011
@@ -22,7 +22,7 @@
     'Dave Rolsky <autarch at urth.org>'
   ],
   'dist_name' => 'DateTime',
-  'dist_version' => '0.67',
+  'dist_version' => '0.68',
   'license' => 'artistic_2',
   'module_name' => 'DateTime',
   'recommends' => {},

Modified: branches/upstream/libdatetime-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/Changes?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/Changes (original)
+++ branches/upstream/libdatetime-perl/current/Changes Tue Apr 26 06:08:50 2011
@@ -1,3 +1,11 @@
+0.68   2011-04-25
+
+- The tests for %N in the last release relied on the vagaries of floating
+  point math on a 64-bit system. Now the from_epoch() method just uses string
+  operations to separate the epoch into an integer value and a mantissa. This
+  avoids floating point insanity. Reported by zefram. RT #67736.
+
+
 0.67   2011-04-24
 
 - The %N strftime specifier simply truncated nanoseconds, rather than rounding

Modified: branches/upstream/libdatetime-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/META.json?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/META.json (original)
+++ branches/upstream/libdatetime-perl/current/META.json Tue Apr 26 06:08:50 2011
@@ -52,6 +52,6 @@
          "web" : "http://hg.urth.org/hg/DateTime.pm"
       }
    },
-   "version" : "0.67"
+   "version" : "0.68"
 }
 

Modified: branches/upstream/libdatetime-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/META.yml?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/META.yml (original)
+++ branches/upstream/libdatetime-perl/current/META.yml Tue Apr 26 06:08:50 2011
@@ -28,4 +28,4 @@
 resources:
   bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=DateTime
   repository: http://hg.urth.org/hg/DateTime.pm
-version: 0.67
+version: 0.68

Modified: branches/upstream/libdatetime-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/README?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/README (original)
+++ branches/upstream/libdatetime-perl/current/README Tue Apr 26 06:08:50 2011
@@ -1,7 +1,7 @@
 
 
 This archive contains the distribution DateTime,
-version 0.67:
+version 0.68:
 
   A date and time object
 

Modified: branches/upstream/libdatetime-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/SIGNATURE?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/SIGNATURE (original)
+++ branches/upstream/libdatetime-perl/current/SIGNATURE Tue Apr 26 06:08:50 2011
@@ -14,29 +14,29 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 e1b2af53081fa772a3b958aac091db285485b807 Build.PL
+SHA1 5105196598d3b972e074864622fed687a3ae731c Build.PL
 SHA1 c951898b770a16da2897d908ab6f9f72057bd570 CREDITS
-SHA1 a0af2607c17cb6f6141dfe06a621a85b602f1f49 Changes
+SHA1 6cd3bf5617785dfbde1c47a46b984282a9e494dc Changes
 SHA1 c5f2b8434452ecd4c943c59ae2a95abb9d75332d INSTALL
 SHA1 c715d20265d2931c7564fc64abfdc4f8ff33e297 LICENSE
 SHA1 3bf9718f28d341b3df7d8b35a030b3b3e18eafed MANIFEST
-SHA1 e952a2a6e511bd0e2b7322db0ecb6a52f6f6e0f1 META.json
-SHA1 b62e7a95a8fb321ac29fe096c47352b166f73cab META.yml
-SHA1 24ab8252bbeb1746cfae76f32195d0fcf4ab187d README
+SHA1 4dd0d78c2dbc69138c4be13705e9906367f82113 META.json
+SHA1 6edc6900bfefd93d92172a58212223738d9e17d2 META.yml
+SHA1 dfd8e89f77ff3581b64d2c2c9342d100608b0498 README
 SHA1 bfc70fbe8fa29484452bea8c2ed4afd55218f2c2 TODO
 SHA1 b67b906c9fbaab9ccac635d623cb4e6064feb8f0 c/leap_seconds.h
 SHA1 4cd12d2a050ab038e519bd1391f77855ba4b24ac c/ppport.h
-SHA1 c97564e2f5cc9b6e24e315be1c73a717a3b785f0 dist.ini
+SHA1 02827bcc0a13cde143c0e26623e41eea1685d157 dist.ini
 SHA1 2d1f339f1a2ceb22c2657d7c21983f69bc7456e3 inc/MyModuleBuild.pm
 SHA1 ad083d04f765963b707dab9d566bf17e92fa51e9 leaptab.txt
-SHA1 a9348ae5a159a9ec0924208bb8cb9566be5a7389 lib/DateTime.pm
+SHA1 31917247e772d35e2fcb5cb8286eb1e33f234a0a lib/DateTime.pm
 SHA1 d2c3464984dc7567d8ef825a80fc4d5ed3602d0a lib/DateTime.xs
-SHA1 3fb1ebd3485d9caf7ba7fe669d210f6dbff0d3a5 lib/DateTime/Duration.pm
-SHA1 566f3d6df4c2a5705695b96b48f2ab72f14d7852 lib/DateTime/Helpers.pm
-SHA1 3e6a81cbb3e458af54f13c14f69724e7d563c378 lib/DateTime/Infinite.pm
-SHA1 60b39dce1c847e49f4a09a7e6770ff373863e62b lib/DateTime/LeapSecond.pm
-SHA1 b67d541a99a564182442256093a2cd9a0796a6f2 lib/DateTimePP.pm
-SHA1 e0501809109a25f5f30b68715e5e9d50422535f6 lib/DateTimePPExtra.pm
+SHA1 358f059de67ee1e9c6a75453f0fe662f194c872c lib/DateTime/Duration.pm
+SHA1 56cf527de80c22fab8c5389b19b56453640ff68c lib/DateTime/Helpers.pm
+SHA1 92436503ee27e98741677308c26d3dc150153a59 lib/DateTime/Infinite.pm
+SHA1 690ad9dd803900f0ce5612281a002bc7ed97a09e lib/DateTime/LeapSecond.pm
+SHA1 095de2caf7085aaecb601dc3e6b0f97668b683f6 lib/DateTimePP.pm
+SHA1 ef22101516cad117dcdd0c2157a91aa751971a2c lib/DateTimePPExtra.pm
 SHA1 b7d12ae6a374c314afcf6ee289a1ae309d8a8563 t/00load.t
 SHA1 53ac3a3da64401a86b06ed6dbcc1af01ba7741dd t/01sanity.t
 SHA1 1ced0f94d405f32f687b5a86c245774fabb44b40 t/02last-day.t
@@ -49,7 +49,7 @@
 SHA1 2b6582dbdcc95a3a8c928da233d3c9cefa8193ef t/10subtract.t
 SHA1 26ba2f29d7b049dd1f58cdd25f91d919263b9008 t/11duration.t
 SHA1 9c04679ba62e41c5c0d28fbf5dbc94536827fe65 t/12week.t
-SHA1 4587a2cc332695f23c8ddf53727435c6e40e5b7d t/13strftime.t
+SHA1 8944ea881dc734a30119e0359741e026d49f0887 t/13strftime.t
 SHA1 5a8e5f135d1735c25981b73ce06fd68296372405 t/14locale.t
 SHA1 31d4392975a4d13e6c10145b9e63b4c45350c148 t/15jd.t
 SHA1 78fd6143e323413681f73d94f68382c257f7b67e t/16truncate.t
@@ -101,7 +101,7 @@
 SHA1 ba80cd8fcdb2aa0cedb2a057053d19667e9471aa t/release-pp-10subtract.t
 SHA1 4773be589e9b5406377527e9525d8450e04d5e73 t/release-pp-11duration.t
 SHA1 e69c9d656b6462e7d52bba196ce6f6e878798a59 t/release-pp-12week.t
-SHA1 fc0256619715c08c278a49c1619840e4533720e9 t/release-pp-13strftime.t
+SHA1 bb7934d2b4f258c7a68585f48fa17359b4c11d9e t/release-pp-13strftime.t
 SHA1 b7e108865965a5a16d2b64677c7d1d3a9ee1ff03 t/release-pp-14locale.t
 SHA1 585ac7a24117d215cdbf37c211b62dc8a95f6c0c t/release-pp-15jd.t
 SHA1 0c18ef64cdefdd559e24a344868c62439d471ff9 t/release-pp-16truncate.t
@@ -136,7 +136,7 @@
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.10 (GNU/Linux)
 
-iEYEARECAAYFAk20XC4ACgkQIgMCsV8qvRIscgCeOHXz66Q8xcADhLtMwY0CDZh1
-nrQAnjNehTj6Iyb4sAccFyrSSDQMoLK+
-=qplf
+iEYEARECAAYFAk21qa8ACgkQIgMCsV8qvRIlqwCfWGPDkzjwZKzCrYlogNklntRP
+B4wAnjklVa/5uREgyUtVRcPYu86kjHKu
+=e3jF
 -----END PGP SIGNATURE-----

Modified: branches/upstream/libdatetime-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/dist.ini?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/dist.ini (original)
+++ branches/upstream/libdatetime-perl/current/dist.ini Tue Apr 26 06:08:50 2011
@@ -3,7 +3,7 @@
 license = Artistic_2_0
 copyright_holder = Dave Rolsky
 
-version = 0.67
+version = 0.68
 
 [NextRelease]
 format = %-6v %{yyyy-MM-dd}d

Modified: branches/upstream/libdatetime-perl/current/lib/DateTime.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/lib/DateTime.pm?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/lib/DateTime.pm (original)
+++ branches/upstream/libdatetime-perl/current/lib/DateTime.pm Tue Apr 26 06:08:50 2011
@@ -1,6 +1,6 @@
 package DateTime;
 BEGIN {
-  $DateTime::VERSION = '0.67';
+  $DateTime::VERSION = '0.68';
 }
 
 use 5.008001;
@@ -489,16 +489,17 @@
         my %p = validate( @_, $spec );
 
         my %args;
-
-        # Because epoch may come from Time::HiRes
-        my $fraction = $p{epoch} - int( $p{epoch} );
-        $args{nanosecond} = int( $fraction * MAX_NANOSECONDS )
-            if $fraction;
+        # Epoch may come from Time::HiRes, so it may not be an integer.
+        my ( $int, $dec ) = $p{epoch} =~ /^(-?\d+)?(\.\d+)?/;
+        $int ||= 0;
+
+        $args{nanosecond} = int( $dec * MAX_NANOSECONDS )
+            if $dec;
 
         # Note, for very large negative values this may give a
         # blatantly wrong answer.
         @args{qw( second minute hour day month year )}
-            = ( gmtime( int delete $p{epoch} ) )[ 0 .. 5 ];
+            = ( gmtime($int) )[ 0 .. 5 ];
         $args{year} += 1900;
         $args{month}++;
 
@@ -2039,7 +2040,7 @@
 
 package DateTime::_Thawed;
 BEGIN {
-  $DateTime::_Thawed::VERSION = '0.67';
+  $DateTime::_Thawed::VERSION = '0.68';
 }
 
 sub utc_rd_values { @{ $_[0]->{utc_vals} } }
@@ -2060,7 +2061,7 @@
 
 =head1 VERSION
 
-version 0.67
+version 0.68
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libdatetime-perl/current/lib/DateTime/Duration.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/lib/DateTime/Duration.pm?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/lib/DateTime/Duration.pm (original)
+++ branches/upstream/libdatetime-perl/current/lib/DateTime/Duration.pm Tue Apr 26 06:08:50 2011
@@ -1,6 +1,6 @@
 package DateTime::Duration;
 BEGIN {
-  $DateTime::Duration::VERSION = '0.67';
+  $DateTime::Duration::VERSION = '0.68';
 }
 
 use strict;
@@ -318,7 +318,7 @@
 
 =head1 VERSION
 
-version 0.67
+version 0.68
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libdatetime-perl/current/lib/DateTime/Helpers.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/lib/DateTime/Helpers.pm?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/lib/DateTime/Helpers.pm (original)
+++ branches/upstream/libdatetime-perl/current/lib/DateTime/Helpers.pm Tue Apr 26 06:08:50 2011
@@ -1,6 +1,6 @@
 package DateTime::Helpers;
 BEGIN {
-  $DateTime::Helpers::VERSION = '0.67';
+  $DateTime::Helpers::VERSION = '0.68';
 }
 
 use strict;

Modified: branches/upstream/libdatetime-perl/current/lib/DateTime/Infinite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/lib/DateTime/Infinite.pm?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/lib/DateTime/Infinite.pm (original)
+++ branches/upstream/libdatetime-perl/current/lib/DateTime/Infinite.pm Tue Apr 26 06:08:50 2011
@@ -1,6 +1,6 @@
 package DateTime::Infinite;
 BEGIN {
-  $DateTime::Infinite::VERSION = '0.67';
+  $DateTime::Infinite::VERSION = '0.68';
 }
 
 use strict;
@@ -38,7 +38,7 @@
 
 package DateTime::Infinite::Future;
 BEGIN {
-  $DateTime::Infinite::Future::VERSION = '0.67';
+  $DateTime::Infinite::Future::VERSION = '0.68';
 }
 
 use base qw(DateTime::Infinite);
@@ -62,7 +62,7 @@
 
 package DateTime::Infinite::Past;
 BEGIN {
-  $DateTime::Infinite::Past::VERSION = '0.67';
+  $DateTime::Infinite::Past::VERSION = '0.68';
 }
 
 use base qw(DateTime::Infinite);
@@ -98,7 +98,7 @@
 
 =head1 VERSION
 
-version 0.67
+version 0.68
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libdatetime-perl/current/lib/DateTime/LeapSecond.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/lib/DateTime/LeapSecond.pm?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/lib/DateTime/LeapSecond.pm (original)
+++ branches/upstream/libdatetime-perl/current/lib/DateTime/LeapSecond.pm Tue Apr 26 06:08:50 2011
@@ -1,6 +1,6 @@
 package DateTime::LeapSecond;
 BEGIN {
-  $DateTime::LeapSecond::VERSION = '0.67';
+  $DateTime::LeapSecond::VERSION = '0.68';
 }
 
 use strict;
@@ -130,7 +130,7 @@
 
 =head1 VERSION
 
-version 0.67
+version 0.68
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libdatetime-perl/current/lib/DateTimePP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/lib/DateTimePP.pm?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/lib/DateTimePP.pm (original)
+++ branches/upstream/libdatetime-perl/current/lib/DateTimePP.pm Tue Apr 26 06:08:50 2011
@@ -1,6 +1,6 @@
 package DateTime;
 BEGIN {
-  $DateTime::VERSION = '0.67';
+  $DateTime::VERSION = '0.68';
 }
 
 use strict;

Modified: branches/upstream/libdatetime-perl/current/lib/DateTimePPExtra.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/lib/DateTimePPExtra.pm?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/lib/DateTimePPExtra.pm (original)
+++ branches/upstream/libdatetime-perl/current/lib/DateTimePPExtra.pm Tue Apr 26 06:08:50 2011
@@ -1,6 +1,6 @@
 package DateTime;
 BEGIN {
-  $DateTime::VERSION = '0.67';
+  $DateTime::VERSION = '0.68';
 }
 
 use strict;

Modified: branches/upstream/libdatetime-perl/current/t/13strftime.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/t/13strftime.t?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/t/13strftime.t (original)
+++ branches/upstream/libdatetime-perl/current/t/13strftime.t Tue Apr 26 06:08:50 2011
@@ -143,10 +143,10 @@
         1200,
         12000,
         120000,
-        1199999,
-        11999989,
-        119999885,
-        1199998850,
+        1200000,
+        12000000,
+        120000000,
+        1200000000,
     );
 
     my $x = 1;

Modified: branches/upstream/libdatetime-perl/current/t/release-pp-13strftime.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdatetime-perl/current/t/release-pp-13strftime.t?rev=73589&op=diff
==============================================================================
--- branches/upstream/libdatetime-perl/current/t/release-pp-13strftime.t (original)
+++ branches/upstream/libdatetime-perl/current/t/release-pp-13strftime.t Tue Apr 26 06:08:50 2011
@@ -155,10 +155,10 @@
         1200,
         12000,
         120000,
-        1199999,
-        11999989,
-        119999885,
-        1199998850,
+        1200000,
+        12000000,
+        120000000,
+        1200000000,
     );
 
     my $x = 1;

More information about the Pkg-perl-cvs-commits mailing list