[ID 20020602.004] threads::shared::queue new nit

Message-Id: <4.2.0.58.20020602213520.027cf9d0@mickey.dijkmat.nl>

p4raw-id: //depot/perl@17003

diff --git a/ext/threads/shared/queue.pm b/ext/threads/shared/queue.pm
index 02a5c2c..b5e40a8 100644 (file)
--- a/ext/threads/shared/queue.pm
+++ b/ext/threads/shared/queue.pm
@@ -68,8 +68,7 @@ L<threads>, L<threads::shared>
 sub new {
     my $class = shift;
     my @q : shared = @_;
-    my $q = \@q;
-    return bless $q, $class;
+    return bless \@q, $class;
 }
 
 sub dequeue  {