r3695 - in /packages/libtime-piece-perl/trunk: ._Piece.xs Changes META.yml Makefile.PL Piece.pm Piece.xs Seconds.pm debian/changelog debian/compat debian/control t/02core.t

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Sat Sep 9 20:07:57 UTC 2006


Author: gregoa-guest
Date: Sat Sep  9 20:07:56 2006
New Revision: 3695

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3695
Log:
* New upstream release.
* Set Standards-Version to 3.7.2 (no changes).
* Set Debhelper Compatibility Level to 5.

Removed:
    packages/libtime-piece-perl/trunk/._Piece.xs
Modified:
    packages/libtime-piece-perl/trunk/Changes
    packages/libtime-piece-perl/trunk/META.yml
    packages/libtime-piece-perl/trunk/Makefile.PL
    packages/libtime-piece-perl/trunk/Piece.pm
    packages/libtime-piece-perl/trunk/Piece.xs
    packages/libtime-piece-perl/trunk/Seconds.pm
    packages/libtime-piece-perl/trunk/debian/changelog
    packages/libtime-piece-perl/trunk/debian/compat
    packages/libtime-piece-perl/trunk/debian/control
    packages/libtime-piece-perl/trunk/t/02core.t

Modified: packages/libtime-piece-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtime-piece-perl/trunk/Changes?rev=3695&op=diff
==============================================================================
--- packages/libtime-piece-perl/trunk/Changes (original)
+++ packages/libtime-piece-perl/trunk/Changes Sat Sep  9 20:07:56 2006
@@ -1,5 +1,13 @@
 
 Time::Piece Changes
+
+1.11
+    - Skip %V test on Win32
+
+1.10
+    - Number of bug fixes from RT
+    - (maintenance by Ricardo SIGNES)
+    - avoid warning in _mktime (bug #19677)
 
 1.09
     - (patches from Ricardo SIGNES)

Modified: packages/libtime-piece-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtime-piece-perl/trunk/META.yml?rev=3695&op=diff
==============================================================================
--- packages/libtime-piece-perl/trunk/META.yml (original)
+++ packages/libtime-piece-perl/trunk/META.yml Sat Sep  9 20:07:56 2006
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Time-Piece
-version:      1.09
+version:      1.11
 version_from: Piece.pm
 installdirs:  site
 requires:

Modified: packages/libtime-piece-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtime-piece-perl/trunk/Makefile.PL?rev=3695&op=diff
==============================================================================
--- packages/libtime-piece-perl/trunk/Makefile.PL (original)
+++ packages/libtime-piece-perl/trunk/Makefile.PL Sat Sep  9 20:07:56 2006
@@ -1,6 +1,7 @@
 use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
+
+require 5.006;
+
 WriteMakefile(
     'NAME'	=> 'Time::Piece',
     'VERSION_FROM' => 'Piece.pm', # finds $VERSION

Modified: packages/libtime-piece-perl/trunk/Piece.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtime-piece-perl/trunk/Piece.pm?rev=3695&op=diff
==============================================================================
--- packages/libtime-piece-perl/trunk/Piece.pm (original)
+++ packages/libtime-piece-perl/trunk/Piece.pm Sat Sep  9 20:07:56 2006
@@ -1,9 +1,8 @@
-# $Id: Piece.pm,v 1.16.2.2 2006/02/11 12:55:26 rjbs Exp $
+# $Id: Piece.pm 70 2006-09-07 17:43:38Z matt $
 
 package Time::Piece;
 
 use strict;
-use vars qw($VERSION @ISA @EXPORT %EXPORT_TAGS);
 
 require Exporter;
 require DynaLoader;
@@ -12,18 +11,18 @@
 use Time::Local;
 use UNIVERSAL qw(isa);
 
- at ISA = qw(Exporter DynaLoader);
-
- at EXPORT = qw(
+our @ISA = qw(Exporter DynaLoader);
+
+our @EXPORT = qw(
     localtime
     gmtime
 );
 
-%EXPORT_TAGS = (
+our %EXPORT_TAGS = (
     ':override' => 'internal',
     );
 
-$VERSION = '1.09';
+our $VERSION = '1.11';
 
 bootstrap Time::Piece $VERSION;
 
@@ -98,10 +97,12 @@
 
 sub _mktime {
     my ($class, $time, $islocal) = @_;
-    $class = eval { (ref $class)->isa('Time::Piece') } ? ref $class : $class;
+    $class = eval { (ref $class) && (ref $class)->isa('Time::Piece') }
+           ? ref $class
+           : $class;
     if (ref($time)) {
-	$time->[c_epoch] = undef;
-	return wantarray ? @$time : bless [@$time, $islocal], $class;
+        $time->[c_epoch] = undef;
+        return wantarray ? @$time : bless [@$time, $islocal], $class;
     }
     _tzset();
     my @time = $islocal ?
@@ -121,6 +122,7 @@
   for my $method (@methods) {
     if (exists $_special_exports{$method}) {
       no strict 'refs';
+      no warnings 'redefine';
       *{$to . "::$method"} = $_special_exports{$method}->($class);
     } else {
       $class->SUPER::export($to, $method);
@@ -280,6 +282,8 @@
 # Thanks to Tony Olekshy <olekshy at cs.ualberta.ca> for this algorithm
 sub tzoffset {
     my $time = shift;
+    
+    return Time::Seconds->new(0) unless $time->[c_islocal];
 
     my $epoch = $time->epoch;
 
@@ -302,15 +306,15 @@
 sub epoch {
     my $time = shift;
     if (defined($time->[c_epoch])) {
-	return $time->[c_epoch];
-    }
-    else {
-	my $epoch = $time->[c_islocal] ?
-	  timelocal(@{$time}[c_sec .. c_mon], $time->[c_year]+1900)
-	  :
-	  timegm(@{$time}[c_sec .. c_mon], $time->[c_year]+1900);
-	$time->[c_epoch] = $epoch;
-	return $epoch;
+        return $time->[c_epoch];
+    }
+    else {
+        my $epoch = $time->[c_islocal] ?
+          timelocal(@{$time}[c_sec .. c_mon], $time->[c_year]+1900)
+          :
+          timegm(@{$time}[c_sec .. c_mon], $time->[c_year]+1900);
+        $time->[c_epoch] = $epoch;
+        return $epoch;
     }
 }
 
@@ -446,14 +450,15 @@
 
 sub strftime {
     my $time = shift;
-    my $format = @_ ? shift(@_) : "%a, %d %b %Y %H:%M:%S %Z";
+    my $tzname = $time->[c_islocal] ? '%Z' : 'UTC';
+    my $format = @_ ? shift(@_) : "%a, %d %b %Y %H:%M:%S $tzname";
     if (!defined $time->[c_wday]) {
-	if ($time->[c_islocal]) {
+        if ($time->[c_islocal]) {
             return _strftime($format, CORE::localtime($time->epoch));
-	}
-	else {
-	    return _strftime($format, CORE::gmtime($time->epoch));
-	}
+        }
+        else {
+            return _strftime($format, CORE::gmtime($time->epoch));
+        }
     }
     return _strftime($format, (@$time)[c_sec..c_isdst]);
 }

Modified: packages/libtime-piece-perl/trunk/Piece.xs
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtime-piece-perl/trunk/Piece.xs?rev=3695&op=diff
==============================================================================
--- packages/libtime-piece-perl/trunk/Piece.xs (original)
+++ packages/libtime-piece-perl/trunk/Piece.xs Sat Sep  9 20:07:56 2006
@@ -23,7 +23,7 @@
  * support is added and NETaa14816 is considered in full.
  * It does not address tzname aspects of NETaa14816.
  */
-#ifdef HAS_GNULIBC
+#if !defined(HAS_GNULIBC)
 # ifndef STRUCT_TM_HASZONE
 #    define STRUCT_TM_HASZONE
 # else
@@ -816,6 +816,7 @@
         char tmpbuf[128];
         struct tm mytm;
         int len;
+        memset(&mytm, 0, sizeof(mytm));
         my_init_tm(&mytm);    /* XXX workaround - see my_init_tm() above */
         mytm.tm_sec = sec;
         mytm.tm_min = min;

Modified: packages/libtime-piece-perl/trunk/Seconds.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtime-piece-perl/trunk/Seconds.pm?rev=3695&op=diff
==============================================================================
--- packages/libtime-piece-perl/trunk/Seconds.pm (original)
+++ packages/libtime-piece-perl/trunk/Seconds.pm Sat Sep  9 20:07:56 2006
@@ -1,4 +1,4 @@
-# $Id: Seconds.pm,v 1.11 2002/09/08 20:51:38 matt Exp $
+# $Id: Seconds.pm 69 2006-09-07 17:41:05Z matt $
 
 package Time::Seconds;
 use strict;

Modified: packages/libtime-piece-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtime-piece-perl/trunk/debian/changelog?rev=3695&op=diff
==============================================================================
--- packages/libtime-piece-perl/trunk/debian/changelog (original)
+++ packages/libtime-piece-perl/trunk/debian/changelog Sat Sep  9 20:07:56 2006
@@ -1,3 +1,11 @@
+libtime-piece-perl (1.11-1) unstable; urgency=low
+
+  * New upstream release.
+  * Set Standards-Version to 3.7.2 (no changes).
+  * Set Debhelper Compatibility Level to 5.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Sat,  9 Sep 2006 22:04:51 +0200
+
 libtime-piece-perl (1.09-2) unstable; urgency=low
 
   * Acknowledge NMU, (closes: #356200)

Modified: packages/libtime-piece-perl/trunk/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtime-piece-perl/trunk/debian/compat?rev=3695&op=diff
==============================================================================
--- packages/libtime-piece-perl/trunk/debian/compat (original)
+++ packages/libtime-piece-perl/trunk/debian/compat Sat Sep  9 20:07:56 2006
@@ -1,1 +1,1 @@
-4
+5

Modified: packages/libtime-piece-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtime-piece-perl/trunk/debian/control?rev=3695&op=diff
==============================================================================
--- packages/libtime-piece-perl/trunk/debian/control (original)
+++ packages/libtime-piece-perl/trunk/debian/control Sat Sep  9 20:07:56 2006
@@ -2,9 +2,9 @@
 Section: perl
 Priority: optional
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
-Standards-Version: 3.6.2
-Build-Depends: debhelper (>= 4.1), perl (>= 5.8)
+Uploaders: Krzysztof Krzyzaniak (eloy) <eloy at debian.org>, gregor herrmann <gregor+debian at comodo.priv.at>
+Standards-Version: 3.7.2
+Build-Depends: debhelper (>= 5.0), perl (>= 5.8)
 
 Package: libtime-piece-perl
 Section: perl

Modified: packages/libtime-piece-perl/trunk/t/02core.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libtime-piece-perl/trunk/t/02core.t?rev=3695&op=diff
==============================================================================
--- packages/libtime-piece-perl/trunk/t/02core.t (original)
+++ packages/libtime-piece-perl/trunk/t/02core.t Sat Sep  9 20:07:56 2006
@@ -93,8 +93,11 @@
 
 cmp_ok($t->strftime('%U'), 'eq', '09'); # Sun cmp Mon
 
-# is this test really broken on Mac OS? -- rjbs, 2006-02-08
-cmp_ok($t->strftime('%V'), 'eq', '09'); # Sun cmp Mon
+SKIP: {
+    skip "can't strftime %V on Win32", 1 if $is_win32;
+    # is this test really broken on Mac OS? -- rjbs, 2006-02-08
+    cmp_ok($t->strftime('%V'), 'eq', '09'); # Sun cmp Mon
+}
 
 cmp_ok($t->strftime('%w'), '==', 2);
 cmp_ok($t->strftime('%W'), 'eq', '09'); # Sun cmp Mon




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