Change 34051 by [EMAIL PROTECTED] on 2008/06/13 17:14:42
Subject: [PATCH] Thread::Queue 2.11
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Thu, 12 Jun 2008 09:42:42 -0400
Message-ID: <[EMAIL PROTECTED]>
This time, not empty.
Affected files ...
... //depot/perl/lib/Thread/Queue.pm#10 edit
... //depot/perl/lib/Thread/Queue/t/01_basic.t#3 edit
... //depot/perl/lib/Thread/Queue/t/02_refs.t#5 edit
... //depot/perl/lib/Thread/Queue/t/03_peek.t#3 edit
... //depot/perl/lib/Thread/Queue/t/04_errs.t#4 edit
... //depot/perl/lib/Thread/Queue/t/05_extract.t#3 edit
... //depot/perl/lib/Thread/Queue/t/06_insert.t#3 edit
... //depot/perl/lib/Thread/Queue/t/07_lock.t#3 edit
... //depot/perl/lib/Thread/Queue/t/08_nothreads.t#3 edit
Differences ...
==== //depot/perl/lib/Thread/Queue.pm#10 (text) ====
Index: perl/lib/Thread/Queue.pm
--- perl/lib/Thread/Queue.pm#9~34050~ 2008-06-13 10:13:52.000000000 -0700
+++ perl/lib/Thread/Queue.pm 2008-06-13 10:14:42.000000000 -0700
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '2.09';
+our $VERSION = '2.11';
use threads::shared 1.21;
use Scalar::Util 1.10 qw(looks_like_number blessed reftype refaddr);
@@ -209,7 +209,7 @@
=head1 VERSION
-This document describes Thread::Queue version 2.09
+This document describes Thread::Queue version 2.11
=head1 SYNOPSIS
@@ -462,7 +462,7 @@
L<http://www.cpanforum.com/dist/Thread-Queue>
Annotated POD for Thread::Queue:
-L<http://annocpan.org/~JDHEDDEN/Thread-Queue-2.09/lib/Thread/Queue.pm>
+L<http://annocpan.org/~JDHEDDEN/Thread-Queue-2.11/lib/Thread/Queue.pm>
Source repository:
L<http://code.google.com/p/thread-queue/>
==== //depot/perl/lib/Thread/Queue/t/01_basic.t#3 (text) ====
Index: perl/lib/Thread/Queue/t/01_basic.t
--- perl/lib/Thread/Queue/t/01_basic.t#2~34050~ 2008-06-13 10:13:52.000000000
-0700
+++ perl/lib/Thread/Queue/t/01_basic.t 2008-06-13 10:14:42.000000000 -0700
@@ -8,7 +8,7 @@
}
use Config;
if (! $Config{'useithreads'}) {
- print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
+ print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
exit(0);
}
}
@@ -129,4 +129,6 @@
is($q->dequeue(), 'done', 'Thread reported done');
is($q->pending(), 0, 'Empty queue');
+exit(0);
+
# EOF
==== //depot/perl/lib/Thread/Queue/t/02_refs.t#5 (text) ====
Index: perl/lib/Thread/Queue/t/02_refs.t
--- perl/lib/Thread/Queue/t/02_refs.t#4~34050~ 2008-06-13 10:13:52.000000000
-0700
+++ perl/lib/Thread/Queue/t/02_refs.t 2008-06-13 10:14:42.000000000 -0700
@@ -8,7 +8,7 @@
}
use Config;
if (! $Config{'useithreads'}) {
- print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
+ print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
exit(0);
}
}
@@ -184,4 +184,6 @@
is($$sref1, 'foo', 'Scalar ref unchanged');
is($$sref2, 'zzz', 'Shared scalar ref changed');
+exit(0);
+
# EOF
==== //depot/perl/lib/Thread/Queue/t/03_peek.t#3 (text) ====
Index: perl/lib/Thread/Queue/t/03_peek.t
--- perl/lib/Thread/Queue/t/03_peek.t#2~34050~ 2008-06-13 10:13:52.000000000
-0700
+++ perl/lib/Thread/Queue/t/03_peek.t 2008-06-13 10:14:42.000000000 -0700
@@ -8,7 +8,7 @@
}
use Config;
if (! $Config{'useithreads'}) {
- print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
+ print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
exit(0);
}
}
@@ -51,4 +51,6 @@
})->join();
q_check();
+exit(0);
+
# EOF
==== //depot/perl/lib/Thread/Queue/t/04_errs.t#4 (text) ====
Index: perl/lib/Thread/Queue/t/04_errs.t
--- perl/lib/Thread/Queue/t/04_errs.t#3~34050~ 2008-06-13 10:13:52.000000000
-0700
+++ perl/lib/Thread/Queue/t/04_errs.t 2008-06-13 10:14:42.000000000 -0700
@@ -70,4 +70,6 @@
eval { $q->extract(0, 'foo'); };
like($@, qr/Invalid 'count'/, $@);
+exit(0);
+
# EOF
==== //depot/perl/lib/Thread/Queue/t/05_extract.t#3 (text) ====
Index: perl/lib/Thread/Queue/t/05_extract.t
--- perl/lib/Thread/Queue/t/05_extract.t#2~34050~ 2008-06-13
10:13:52.000000000 -0700
+++ perl/lib/Thread/Queue/t/05_extract.t 2008-06-13 10:14:42.000000000
-0700
@@ -8,7 +8,7 @@
}
use Config;
if (! $Config{'useithreads'}) {
- print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
+ print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
exit(0);
}
}
@@ -73,4 +73,6 @@
is_deeply([EMAIL PROTECTED], [4..6], 'Neg big overlap');
})->join();
+exit(0);
+
# EOF
==== //depot/perl/lib/Thread/Queue/t/06_insert.t#3 (text) ====
Index: perl/lib/Thread/Queue/t/06_insert.t
--- perl/lib/Thread/Queue/t/06_insert.t#2~34050~ 2008-06-13
10:13:52.000000000 -0700
+++ perl/lib/Thread/Queue/t/06_insert.t 2008-06-13 10:14:42.000000000 -0700
@@ -8,7 +8,7 @@
}
use Config;
if (! $Config{'useithreads'}) {
- print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
+ print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
exit(0);
}
}
@@ -101,4 +101,6 @@
@x = $q->dequeue_nb(100);
is_deeply([EMAIL PROTECTED], [1,'foo',2,3], 'Empty queue insert');
+exit(0);
+
# EOF
==== //depot/perl/lib/Thread/Queue/t/07_lock.t#3 (text) ====
Index: perl/lib/Thread/Queue/t/07_lock.t
--- perl/lib/Thread/Queue/t/07_lock.t#2~34050~ 2008-06-13 10:13:52.000000000
-0700
+++ perl/lib/Thread/Queue/t/07_lock.t 2008-06-13 10:14:42.000000000 -0700
@@ -8,7 +8,7 @@
}
use Config;
if (! $Config{'useithreads'}) {
- print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
+ print("1..0 # SKIP Perl not compiled with 'useithreads'\n");
exit(0);
}
}
@@ -51,4 +51,6 @@
is_deeply([EMAIL PROTECTED], [1..5,8..10], 'Main dequeues');
threads::yield();
+exit(0);
+
# EOF
==== //depot/perl/lib/Thread/Queue/t/08_nothreads.t#3 (text) ====
Index: perl/lib/Thread/Queue/t/08_nothreads.t
--- perl/lib/Thread/Queue/t/08_nothreads.t#2~34050~ 2008-06-13
10:13:52.000000000 -0700
+++ perl/lib/Thread/Queue/t/08_nothreads.t 2008-06-13 10:14:42.000000000
-0700
@@ -109,4 +109,6 @@
# Check results of thread's activities
is($q->pending(), 0, 'Empty queue');
+exit(0);
+
# EOF
End of Patch.
