r50833 - in /branches/upstream/libuuid-tiny-perl/current: Changes META.yml README lib/UUID/Tiny.pm t/03-UUID-fork.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Jan 13 04:21:17 UTC 2010
Author: jawnsy-guest
Date: Wed Jan 13 04:20:51 2010
New Revision: 50833
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=50833
Log:
[svn-upgrade] Integrating new upstream version, libuuid-tiny-perl (1.0202)
Modified:
branches/upstream/libuuid-tiny-perl/current/Changes
branches/upstream/libuuid-tiny-perl/current/META.yml
branches/upstream/libuuid-tiny-perl/current/README
branches/upstream/libuuid-tiny-perl/current/lib/UUID/Tiny.pm
branches/upstream/libuuid-tiny-perl/current/t/03-UUID-fork.t
Modified: branches/upstream/libuuid-tiny-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libuuid-tiny-perl/current/Changes?rev=50833&op=diff
==============================================================================
--- branches/upstream/libuuid-tiny-perl/current/Changes (original)
+++ branches/upstream/libuuid-tiny-perl/current/Changes Wed Jan 13 04:20:51 2010
@@ -1,4 +1,13 @@
Revision history for UUID-Tiny
+
+1.0202 2010-01-12, caugustin.de
+ Fixed a small bug (calling _init_globals without need).
+ Introduced a test on clk_seq uniqueness (due to failed CPAN Tester's
+ ID 6357718). We'll see ...
+
+1.0201 2010-01-12, caugustin.de
+ Bug #50519 fixed: Test number 03 fails on Windows (just skipping this
+ test on MSWin32).
1.02 2009-08-21, caugustin.de
Cosmetic changes to documentation.
@@ -11,7 +20,7 @@
Refactoring by Jesse Vincent.
Testing the legacy interface.
New _init_globals() to make UUID::Tiny "fork-safe".
- Test cases to prove "fork-safety" of v1 u. v4 UUIDs.
+ Test cases to prove "fork-safety" of v1 and v4 UUIDs.
Locking for thread-safety of MD5_CALCULATOR and SHA1_CALCULATOR.
1.01 2009-07-12, caugustin.de
Modified: branches/upstream/libuuid-tiny-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libuuid-tiny-perl/current/META.yml?rev=50833&op=diff
==============================================================================
--- branches/upstream/libuuid-tiny-perl/current/META.yml (original)
+++ branches/upstream/libuuid-tiny-perl/current/META.yml Wed Jan 13 04:20:51 2010
@@ -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: UUID-Tiny
-version: 1.02
+version: 1.0202
version_from: lib/UUID/Tiny.pm
installdirs: site
requires:
Modified: branches/upstream/libuuid-tiny-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libuuid-tiny-perl/current/README?rev=50833&op=diff
==============================================================================
--- branches/upstream/libuuid-tiny-perl/current/README (original)
+++ branches/upstream/libuuid-tiny-perl/current/README Wed Jan 13 04:20:51 2010
@@ -1,4 +1,4 @@
-UUID-Tiny Version 1.01
+UUID-Tiny Version 1.0202
This is a Pure Perl module for the creation of UUIDs:
@@ -63,7 +63,7 @@
COPYRIGHT AND LICENCE
-Copyright (C) 2009 Christian Augustin
+Copyright (C) 2009, 2010 Christian Augustin
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Modified: branches/upstream/libuuid-tiny-perl/current/lib/UUID/Tiny.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libuuid-tiny-perl/current/lib/UUID/Tiny.pm?rev=50833&op=diff
==============================================================================
--- branches/upstream/libuuid-tiny-perl/current/lib/UUID/Tiny.pm (original)
+++ branches/upstream/libuuid-tiny-perl/current/lib/UUID/Tiny.pm Wed Jan 13 04:20:51 2010
@@ -25,6 +25,10 @@
our $MD5_CALCULATOR = Digest::MD5->new();
+# ToDo:
+# - Check and report for undefined UUIDs with all UUID manipulating functions!
+# - Better error propagation for better debugging.
+
=head1 NAME
@@ -33,11 +37,11 @@
=head1 VERSION
-Version 1.02
-
-=cut
-
-our $VERSION = '1.02';
+Version 1.0201
+
+=cut
+
+our $VERSION = '1.0202';
=head1 SYNOPSIS
@@ -691,7 +695,21 @@
if (!defined $Last_Pid || $Last_Pid != $$) {
$Last_Pid = $$;
- $Clk_Seq = _generate_clk_seq();
+ # $Clk_Seq = _generate_clk_seq();
+ my $new_clk_seq = _generate_clk_seq();
+ if (!defined($Clk_Seq) || $new_clk_seq != $Clk_Seq) {
+ $Clk_Seq = $new_clk_seq;
+ }
+ else {
+ $new_clk_seq = _generate_clk_seq();
+ if ($new_clk_seq != $Clk_Seq) {
+ $Clk_Seq = $new_clk_seq;
+ }
+ else {
+ croak __PACKAGE__
+ . "::_init_globals(): Can't get unique clk_seq!";
+ }
+ }
srand();
}
@@ -718,7 +736,7 @@
sub _generate_clk_seq {
my $self = shift;
- _init_globals();
+ # _init_globals();
my @data;
push @data, q{} . $$;
Modified: branches/upstream/libuuid-tiny-perl/current/t/03-UUID-fork.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libuuid-tiny-perl/current/t/03-UUID-fork.t?rev=50833&op=diff
==============================================================================
--- branches/upstream/libuuid-tiny-perl/current/t/03-UUID-fork.t (original)
+++ branches/upstream/libuuid-tiny-perl/current/t/03-UUID-fork.t Wed Jan 13 04:20:51 2010
@@ -2,10 +2,17 @@
use strict;
use warnings;
-use Test::More 'no_plan';
+use Test::More;
use Carp;
use UUID::Tiny qw(:std);
+
+if ($^O eq 'MSWin32') {
+ plan skip_all => 'Pipe-open not supported on MSWin32';
+}
+else {
+ plan tests => 6
+}
my %uuid;
More information about the Pkg-perl-cvs-commits
mailing list