Deprecate assignment to $[

[p5sagit/p5-mst-13.2.git] / lib / CPAN / Queue.pm

diff --git a/lib/CPAN/Queue.pm b/lib/CPAN/Queue.pm
index f01ab51..b60f57c 100644 (file)
--- a/lib/CPAN/Queue.pm
+++ b/lib/CPAN/Queue.pm
@@ -67,7 +67,7 @@ package CPAN::Queue;
 # in CPAN::Distribution::rematein.
 
 use vars qw{ @All $VERSION };
-$VERSION = sprintf "%.6f", substr(q$Rev: 2212 $,4)/1000000 + 5.4;
+$VERSION = "5.5";
 
 # CPAN::Queue::queue_item ;
 sub queue_item {
@@ -181,6 +181,11 @@ sub nullify_queue {
     @All = ();
 }
 
+# CPAN::Queue::size ;
+sub size {
+    return scalar @All;
+}
+
 1;
 
 __END__