perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/filter/TestFilter both_str_native_remove.pm
Date Wed, 27 Oct 2004 23:16:09 GMT
stas        2004/10/27 16:16:09

  Modified:    t/filter/TestFilter both_str_native_remove.pm
  Log:
  align
  
  Revision  Changes    Path
  1.2       +43 -43    modperl-2.0/t/filter/TestFilter/both_str_native_remove.pm
  
  Index: both_str_native_remove.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/both_str_native_remove.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- both_str_native_remove.pm	27 Oct 2004 22:03:11 -0000	1.1
  +++ both_str_native_remove.pm	27 Oct 2004 23:16:09 -0000	1.2
  @@ -16,69 +16,69 @@
   
   # this filter removes the next filter in chain and itself
   sub remove_includes {
  -      my $f = shift;
  +    my $f = shift;
   
  -      my $args = $f->r->args || '';
  -      if ($args eq 'remove') {
  -          my $ff = $f->next;
  -          $ff->remove if $ff && $ff->frec->name eq 'includes';
  -      }
  +    my $args = $f->r->args || '';
  +    if ($args eq 'remove') {
  +        my $ff = $f->next;
  +        $ff->remove if $ff && $ff->frec->name eq 'includes';
  +    }
   
  -      $f->remove;
  +    $f->remove;
   
  -      return Apache::DECLINED;
  +    return Apache::DECLINED;
   }
   
   # this filter removes the next filter in chain and itself
   sub remove_deflate {
  -      my $f = shift;
  +    my $f = shift;
   
  -      my $args = $f->r->args || '';
  -      if ($args eq 'remove') {
  -          for (my $ff = $f->r->input_filters; $ff; $ff = $ff->next) {
  -              if ($ff->frec->name eq 'deflate') {
  -                  $ff->remove;
  -                  last;
  -              }
  -          }
  -      }
  -      $f->remove;
  +    my $args = $f->r->args || '';
  +    if ($args eq 'remove') {
  +        for (my $ff = $f->r->input_filters; $ff; $ff = $ff->next) {
  +            if ($ff->frec->name eq 'deflate') {
  +                $ff->remove;
  +                last;
  +            }
  +        }
  +    }
  +    $f->remove;
   
  -      return Apache::DECLINED;
  +    return Apache::DECLINED;
   }
   
   # this filter appends the output filter list at eos
   sub print_out_flist {
  -      my $f = shift;
  +    my $f = shift;
   
  -      unless ($f->ctx) {
  -          $f->ctx(1);
  -          $f->r->headers_out->unset('Content-Length');
  -      }
  -
  -      while ($f->read(my $buffer, 1024)) {
  -          $f->print($buffer);
  -      }
  -
  -      if ($f->seen_eos) {
  -          my $flist = join ',', get_flist($f->r->output_filters);
  -          $f->print("output2: $flist\n");
  -      }
  +    unless ($f->ctx) {
  +        $f->ctx(1);
  +        $f->r->headers_out->unset('Content-Length');
  +    }
  +
  +    while ($f->read(my $buffer, 1024)) {
  +        $f->print($buffer);
  +    }
  +
  +    if ($f->seen_eos) {
  +        my $flist = join ',', get_flist($f->r->output_filters);
  +        $f->print("output2: $flist\n");
  +    }
   
  -      return Apache::OK;
  +    return Apache::OK;
   }
   
   sub store_in_flist {
  -      my $f = shift;
  -      my $r = $f->r;
  +    my $f = shift;
  +    my $r = $f->r;
   
  -      unless ($f->ctx) {
  -          my $x = $r->pnotes('INPUT_FILTERS') || [];
  -          push @$x, join ',', get_flist($f->r->input_filters);
  -          $r->pnotes('INPUT_FILTERS' => $x);
  -      }
  +    unless ($f->ctx) {
  +        my $x = $r->pnotes('INPUT_FILTERS') || [];
  +        push @$x, join ',', get_flist($f->r->input_filters);
  +        $r->pnotes('INPUT_FILTERS' => $x);
  +    }
   
  -      return Apache::DECLINED;
  +    return Apache::DECLINED;
   }
   
   
  
  
  

Mime
View raw message