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/hooks/TestHooks cleanup2.pm
Date Fri, 30 May 2003 02:15:52 GMT
stas        2003/05/29 19:15:52

  Modified:    t/hooks/TestHooks cleanup2.pm
  Log:
  it's more interesting to use $r->pool->cleanup_register since it can
  accept an arbitrary argument.
  
  Revision  Changes    Path
  1.2       +5 -4      modperl-2.0/t/hooks/TestHooks/cleanup2.pm
  
  Index: cleanup2.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/cleanup2.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- cleanup2.pm	30 May 2003 02:09:57 -0000	1.1
  +++ cleanup2.pm	30 May 2003 02:15:52 -0000	1.2
  @@ -14,6 +14,7 @@
   use Apache::RequestRec ();
   use Apache::RequestIO ();
   use Apache::RequestUtil ();
  +use APR::Pool ();
   
   use Apache::Const -compile => qw(OK DECLINED);
   use APR::Const    -compile => 'SUCCESS';
  @@ -31,17 +32,17 @@
       my $status = $r->sendfile($file);
       die "sendfile has failed" unless $status == APR::SUCCESS;
   
  -    $r->push_handlers(PerlCleanupHandler => \&cleanup);
  +    $r->pool->cleanup_register(\&cleanup, $file);
   
       return Apache::OK;
   }
   
   sub cleanup {
  -    my $r = shift;
  +    my $file_arg = shift;
   
       debug_sub "called";
  -    die "Can't find file: $file" unless -e $file;
  -    unlink $file or die "failed to unlink $file";
  +    die "Can't find file: $file_arg" unless -e $file_arg;
  +    unlink $file_arg or die "failed to unlink $file_arg";
   
       return Apache::OK;
   }
  
  
  

Mime
View raw message