[prev in list] [next in list] [prev in thread] [next in thread] 

List:       mason-cvs
Subject:    [Mason-checkins] CVS: mason/dist/lib/HTML/Mason Request.pm,1.106,1.107
From:       Dave Rolsky <autarch () users ! sourceforge ! net>
Date:       2002-02-22 19:20:50
[Download RAW message or body]

Update of /cvsroot/mason/mason/dist/lib/HTML/Mason
In directory usw-pr-cvs1:/tmp/cvs-serv7381

Modified Files:
	Request.pm 
Log Message:
order of buffers returned from ->buffer_stack should match order returned from ->callers


Index: Request.pm
===================================================================
RCS file: /cvsroot/mason/mason/dist/lib/HTML/Mason/Request.pm,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -r1.106 -r1.107
--- Request.pm	21 Feb 2002 19:49:17 -0000	1.106
+++ Request.pm	22 Feb 2002 19:20:48 -0000	1.107
@@ -105,7 +105,7 @@
 	$self->{$field} = undef;
     }
 
-    $self->pop_buffer_stack while $self->buffer_stack;
+    $self->{buffer_stack} = [];
 }
 
 sub exec {
@@ -764,7 +764,7 @@
 sub clear_buffer
 {
     my $self = shift;
-    for (reverse $self->buffer_stack) {
+    for ($self->buffer_stack) {
 	last if $_->ignore_flush;
 	$_->clear;
     }
@@ -773,7 +773,7 @@
 sub flush_buffer
 {
     my $self = shift;
-    for (reverse $self->buffer_stack) {
+    for ($self->buffer_stack) {
 	last if $_->ignore_flush;
 	$_->flush;
     }
@@ -844,7 +844,7 @@
 
 sub buffer_stack {
     my ($self) = @_;
-    return @{ $self->{buffer_stack} };
+    return reverse @{ $self->{buffer_stack} };
 }
 
 


_______________________________________________
Mason-checkins mailing list
Mason-checkins@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mason-checkins
[prev in list] [next in list] [prev in thread] [next in thread]