r38854 - in /branches/upstream/libtime-piece-perl/current: Changes META.yml Piece.pm t/02core.t

[carnil-guest at users.alioth.debian.org]

Author: carnil-guest
Date: Sun Jun 28 08:20:49 2009
New Revision: 38854

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38854
Log:
[svn-upgrade] Integrating new upstream version, libtime-piece-perl (1.15)

Modified:
    branches/upstream/libtime-piece-perl/current/Changes
    branches/upstream/libtime-piece-perl/current/META.yml
    branches/upstream/libtime-piece-perl/current/Piece.pm
    branches/upstream/libtime-piece-perl/current/t/02core.t

Modified: branches/upstream/libtime-piece-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtime-piece-perl/current/Changes?rev=38854&op=diff
==============================================================================
--- branches/upstream/libtime-piece-perl/current/Changes (original)
+++ branches/upstream/libtime-piece-perl/current/Changes Sun Jun 28 08:20:49 2009
@@ -1,5 +1,9 @@
 
 Time::Piece Changes
+
+1.15
+    - Skip a test on Win32 that there's just no way of passing
+    - Document the above failure
 
 1.14
 	- rework add_months() to not rely on strptime being able to parse illegal

Modified: branches/upstream/libtime-piece-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtime-piece-perl/current/META.yml?rev=38854&op=diff
==============================================================================
--- branches/upstream/libtime-piece-perl/current/META.yml (original)
+++ branches/upstream/libtime-piece-perl/current/META.yml Sun Jun 28 08:20:49 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Time-Piece
-version:            1.14
+version:            1.15
 abstract:           Object Oriented time objects
 author:
     - Matt Sergeant

Modified: branches/upstream/libtime-piece-perl/current/Piece.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtime-piece-perl/current/Piece.pm?rev=38854&op=diff
==============================================================================
--- branches/upstream/libtime-piece-perl/current/Piece.pm (original)
+++ branches/upstream/libtime-piece-perl/current/Piece.pm Sun Jun 28 08:20:49 2009
@@ -1,4 +1,4 @@
-# $Id: Piece.pm 81 2009-05-09 02:31:43Z matt $
+# $Id: Piece.pm 82 2009-06-27 13:20:23Z matt $
 
 package Time::Piece;
 
@@ -22,7 +22,7 @@
     ':override' => 'internal',
     );
 
-our $VERSION = '1.14';
+our $VERSION = '1.15';
 
 bootstrap Time::Piece $VERSION;
 
@@ -835,6 +835,9 @@
 in the main thread to have the desired effect in this case (and you must
 also call _tzset() in the main thread to register the environment change).
 
+Furthermore, remember that this caveat also applies to fork(), which is
+emulated by threads on Win32.
+
 =head1 AUTHOR
 
 Matt Sergeant, matt at sergeant.org

Modified: branches/upstream/libtime-piece-perl/current/t/02core.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtime-piece-perl/current/t/02core.t?rev=38854&op=diff
==============================================================================
--- branches/upstream/libtime-piece-perl/current/t/02core.t (original)
+++ branches/upstream/libtime-piece-perl/current/t/02core.t Sun Jun 28 08:20:49 2009
@@ -47,7 +47,13 @@
 cmp_ok($t->daylight_savings, '==', 0);
 
 # ->tzoffset?
-{
+my $is_pseudo_fork = 0;
+if (defined &Win32::GetCurrentProcessId
+    ? $$ != Win32::GetCurrentProcessId() : $^O eq "MSWin32" && $$ < 0) {
+    $is_pseudo_fork = 1;
+}
+SKIP: {
+    skip "can't register TZ changes in a pseudo-fork", 2 if $is_pseudo_fork;
     local $ENV{TZ} = "EST5";
     Time::Piece::_tzset();  # register the environment change
     my $lt = localtime;