Import of DROLSKY/DateTime-1.01 from CPAN.

gitpan-cpan-distribution: DateTime gitpan-cpan-version: 1.01 gitpan-cpan-path: DROLSKY/DateTime-1.01.tar.gz gitpan-cpan-author: DROLSKY gitpan-cpan-maturity: released
gitpan · Oct 22, 2014 · 2e4c187 · 2e4c187
1 parent 3373025
commit 2e4c187
Show file tree

Hide file tree

Showing 21 changed files with 30 additions and 175 deletions.
diff --git a/Build.PL b/Build.PL
@@ -18,7 +18,7 @@ my %module_build_args = (
     "Dave Rolsky <autarch\@urth.org>"
   ],
   "dist_name" => "DateTime",
-  "dist_version" => "1.00",
+  "dist_version" => "1.01",
   "license" => "artistic_2",
   "module_name" => "DateTime",
   "recommends" => {},
@@ -30,6 +30,7 @@ my %module_build_args = (
     "POSIX" => 0,
     "Params::Validate" => "0.76",
     "Scalar::Util" => 0,
+    "Try::Tiny" => 0,
     "XSLoader" => 0,
     "base" => 0,
     "constant" => 0,

diff --git a/Changes b/Changes
@@ -1,3 +1,8 @@
+1.01   2013-04-01
+
+- Fixed test failures on older Perls.
+
+
 1.00   2013-03-31
 
 - Bumped the version to 1.00. This is mostly because my prior use of both X.YY

diff --git a/MANIFEST b/MANIFEST
@@ -8,15 +8,6 @@ META.json
 META.yml
 README
 TODO
-_build/auto_features
-_build/build_params
-_build/cleanup
-_build/config_data
-_build/features
-_build/magicnum
-_build/notes
-_build/prereqs
-_build/runtime_params
 c/leap_seconds.h
 c/ppport.h
 dist.ini

diff --git a/META.json b/META.json
@@ -37,6 +37,7 @@
             "POSIX" : "0",
             "Params::Validate" : "0.76",
             "Scalar::Util" : "0",
+            "Try::Tiny" : "0",
             "XSLoader" : "0",
             "base" : "0",
             "constant" : "0",
@@ -69,6 +70,6 @@
          "web" : "http://git.urth.org/DateTime.pm.git"
       }
    },
-   "version" : "1.00"
+   "version" : "1.01"
 }
 
diff --git a/META.yml b/META.yml
@@ -24,6 +24,7 @@ requires:
   POSIX: 0
   Params::Validate: 0.76
   Scalar::Util: 0
+  Try::Tiny: 0
   XSLoader: 0
   base: 0
   constant: 0
@@ -36,4 +37,4 @@ requires:
 resources:
   bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=DateTime
   repository: git://git.urth.org/DateTime.pm.git
-version: 1.00
+version: 1.01
diff --git a/README b/README
@@ -1,7 +1,7 @@
 
 
 This archive contains the distribution DateTime,
-version 1.00:
+version 1.01:
 
   A date and time object
 

diff --git a/_build/auto_features b/_build/auto_features
diff --git a/_build/build_params b/_build/build_params
diff --git a/_build/cleanup b/_build/cleanup
diff --git a/_build/config_data b/_build/config_data
diff --git a/_build/features b/_build/features
diff --git a/_build/magicnum b/_build/magicnum
diff --git a/_build/notes b/_build/notes
diff --git a/_build/prereqs b/_build/prereqs
diff --git a/_build/runtime_params b/_build/runtime_params
diff --git a/dist.ini b/dist.ini
@@ -3,7 +3,7 @@ author  = Dave Rolsky <autarch@urth.org>
 license = Artistic_2_0
 copyright_holder = Dave Rolsky
 
-version = 1.00
+version = 1.01
 
 [NextRelease]
 format = %-6v %{yyyy-MM-dd}d

diff --git a/lib/DateTime.pm b/lib/DateTime.pm
@@ -1,6 +1,6 @@
 package DateTime;
 {
-  $DateTime::VERSION = '1.00';
+  $DateTime::VERSION = '1.01';
 }
 
 use 5.008001;
@@ -47,6 +47,7 @@ use DateTime::TimeZone 1.09;
 use Params::Validate 0.76
     qw( validate validate_pos UNDEF SCALAR BOOLEAN HASHREF OBJECT );
 use POSIX qw(floor);
+use Try::Tiny;
 
 # for some reason, overloading doesn't work unless fallback is listed
 # early.
@@ -1960,20 +1961,22 @@ sub set_time_zone {
 
     $self->_handle_offset_modifier( $self->second, 1 );
 
-    local $@;
-    eval {
+    my $e;
+    try {
         # if it either was or now is floating (but not both)
         if ( $self->{tz}->is_floating xor $was_floating ) {
             $self->_calc_utc_rd;
         }
         elsif ( !$was_floating ) {
             $self->_calc_local_rd;
         }
+    }
+    catch {
+        $e = $_;
     };
 
     # If we can't recalc the RD values then we shouldn't keep the new TZ. RT
     # #83940
-    my $e = $@;
     if ($e) {
         $self->{tz} = $old_tz;
         die $e;
@@ -2072,7 +2075,7 @@ DateTime - A date and time object
 
 =head1 VERSION
 
-version 1.00
+version 1.01
 
 =head1 SYNOPSIS
 

diff --git a/lib/DateTime/Duration.pm b/lib/DateTime/Duration.pm
@@ -1,6 +1,6 @@
 package DateTime::Duration;
 {
-  $DateTime::Duration::VERSION = '1.00';
+  $DateTime::Duration::VERSION = '1.01';
 }
 
 use strict;
@@ -318,7 +318,7 @@ DateTime::Duration - Duration objects for date math
 
 =head1 VERSION
 
-version 1.00
+version 1.01
 
 =head1 SYNOPSIS
 

diff --git a/lib/DateTime/Helpers.pm b/lib/DateTime/Helpers.pm
@@ -1,6 +1,6 @@
 package DateTime::Helpers;
 {
-  $DateTime::Helpers::VERSION = '1.00';
+  $DateTime::Helpers::VERSION = '1.01';
 }
 
 use strict;

diff --git a/lib/DateTime/Infinite.pm b/lib/DateTime/Infinite.pm
@@ -1,6 +1,6 @@
 package DateTime::Infinite;
 {
-  $DateTime::Infinite::VERSION = '1.00';
+  $DateTime::Infinite::VERSION = '1.01';
 }
 
 use strict;
@@ -38,7 +38,7 @@ sub STORABLE_thaw   {return}
 
 package DateTime::Infinite::Future;
 {
-  $DateTime::Infinite::Future::VERSION = '1.00';
+  $DateTime::Infinite::Future::VERSION = '1.01';
 }
 
 use strict;
@@ -66,7 +66,7 @@ use base qw(DateTime::Infinite);
 
 package DateTime::Infinite::Past;
 {
-  $DateTime::Infinite::Past::VERSION = '1.00';
+  $DateTime::Infinite::Past::VERSION = '1.01';
 }
 
 use strict;
@@ -178,7 +178,7 @@ DateTime::Infinite - Infinite past and future DateTime objects
 
 =head1 VERSION
 
-version 1.00
+version 1.01
 
 =head1 SYNOPSIS
 

diff --git a/lib/DateTime/LeapSecond.pm b/lib/DateTime/LeapSecond.pm
@@ -1,6 +1,6 @@
 package DateTime::LeapSecond;
 {
-  $DateTime::LeapSecond::VERSION = '1.00';
+  $DateTime::LeapSecond::VERSION = '1.01';
 }
 
 use strict;
@@ -131,7 +131,7 @@ DateTime::LeapSecond - leap seconds table and utilities
 
 =head1 VERSION
 
-version 1.00
+version 1.01
 
 =head1 SYNOPSIS