test collect in isolation

[catagits/HTML-Zoom.git] / lib / HTML / Zoom / FilterBuilder.pm

diff --git a/lib/HTML/Zoom/FilterBuilder.pm b/lib/HTML/Zoom/FilterBuilder.pm
index b82a85c..7f9b7b6 100644 (file)
--- a/lib/HTML/Zoom/FilterBuilder.pm
+++ b/lib/HTML/Zoom/FilterBuilder.pm
@@ -138,12 +138,12 @@ sub collect {
       while (my ($evt) = $stream->next) {
         $depth++ if ($evt->{type} eq 'OPEN');
         $depth-- if ($evt->{type} eq 'CLOSE');
+        push(@$into, $evt) if $into;
         unless ($depth) {
           undef $stream;
           return $evt if $passthrough;
           return;
         }
-        push(@$into, $evt) if $into;
         return $evt if $passthrough;
       }
       die "Never saw closing </${name}> before end of source";