Hello
Hope this is OK, haven't submitted a patch using this system before...
excellent documentation!
Thanks
--Kurt
(patch follows)
diff -ruN PickingUpPerl/pickingUpPerl.texi pickv2/pickingUpPerl.texi
--- PickingUpPerl/pickingUpPerl.texi Sun Oct 3 23:39:30 1999
+++ pickv2/pickingUpPerl.texi Thu Jul 6 19:11:13 2000
@@ -2532,7 +2532,7 @@
my @@queue;
unshift (@@queue, "Customer 1"); # @@queue is now ("Customer 1")
unshift (@@queue, "Customer 2"); # @@queue is now ("Customer 2" "Customer 1")
-unshift (@@queue, "Customer 2");
+unshift (@@queue, "Customer 3");
# @@queue is now ("Customer 3" "Customer 2" "Customer 1")
my $item = pop(@@queue); # @@queue is now ("Customer 3" "Customer 2")
print "Servicing $item\n"; # prints: Servicing Customer 1\n
