This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Time-Piece to CPAN version 1.29
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 3 Sep 2014 12:56:59 +0000 (13:56 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 3 Sep 2014 12:56:59 +0000 (13:56 +0100)
  [DELTA]

1.29      2014-09-01
        - when pretty printing negative Time::Seconds, do not lose the "minus"

Porting/Maintainers.pl
cpan/Time-Piece/Piece.pm
cpan/Time-Piece/Seconds.pm
cpan/Time-Piece/t/02core.t

index c124598..321eb69 100755 (executable)
@@ -1207,7 +1207,7 @@ use File::Glob qw(:case);
     },
 
     'Time::Piece' => {
-        'DISTRIBUTION' => 'RJBS/Time-Piece-1.27.tar.gz',
+        'DISTRIBUTION' => 'RJBS/Time-Piece-1.29.tar.gz',
         'FILES'        => q[cpan/Time-Piece],
     },
 
index f913db9..aaf63ee 100644 (file)
@@ -19,7 +19,7 @@ our %EXPORT_TAGS = (
     ':override' => 'internal',
     );
 
-our $VERSION = '1.27';
+our $VERSION = '1.29';
 
 bootstrap Time::Piece $VERSION;
 
index b001f20..8e5b52b 100644 (file)
@@ -2,7 +2,7 @@ package Time::Seconds;
 use strict;
 use vars qw/@EXPORT @EXPORT_OK/;
 
-our $VERSION = '1.27';
+our $VERSION = '1.29';
 
 use Exporter 5.57 'import';
 
@@ -160,7 +160,7 @@ sub pretty {
         if ($s >= ONE_HOUR) {
             if ($s >= ONE_DAY) {
                 my $days = sprintf("%d", $s->days); # does a "floor"
-                $str = $days . " days, ";
+                $str .= $days . " days, ";
                 $s -= ($days * ONE_DAY);
             }
             my $hours = sprintf("%d", $s->hours);
index 3840e87..18dae7d 100644 (file)
@@ -1,10 +1,11 @@
-use Test::More tests => 96;
+use Test::More tests => 95;
 
 my $is_win32 = ($^O =~ /Win32/);
 my $is_qnx = ($^O eq 'qnx');
 my $is_vos = ($^O eq 'vos');
-BEGIN { use_ok('Time::Piece'); }
-ok(1);
+
+use Time::Piece;
+use Time::Seconds;
 
 my $t = gmtime(951827696); # 2000-02-29T12:34:56
 
@@ -227,3 +228,5 @@ cmp_ok(
   951827696
 );
 
+my $s = Time::Seconds->new(-691050);
+is($s->pretty, 'minus 7 days, 23 hours, 57 minutes, 30 seconds');