[LON-CAPA-cvs] cvs: newloncapa /types Queuetest.pl

foxr lon-capa-cvs@mail.lon-capa.org
Tue, 01 Apr 2003 23:23:15 -0000


foxr		Tue Apr  1 18:23:15 2003 EDT

  Modified files:              
    /newloncapa/types	Queuetest.pl 
  Log:
  Do a bit of work to ensure we really get intended results when dequeueing an 
  empty queue.
  
  
Index: newloncapa/types/Queuetest.pl
diff -u newloncapa/types/Queuetest.pl:1.1.1.1 newloncapa/types/Queuetest.pl:1.2
--- newloncapa/types/Queuetest.pl:1.1.1.1	Wed Feb 26 20:28:12 2003
+++ newloncapa/types/Queuetest.pl	Tue Apr  1 18:23:15 2003
@@ -28,7 +28,8 @@
 
 # Over pop q1:
 
+$over = $q1->dequeue();
 print "Overpopped q1:  ".$q1->dequeue()."\n";
-if ($q1->dequeue() == undef) {
+if ($over == undef) {
     print "Overpopping gives undefined\n"
     }