cvs commit: modperl-2.0/t/response/TestModules reload.pm

[gozer]

gozer       2004/09/10 18:04:28

  Modified:    t/response/TestModules reload.pm
  Log:
  Once the test is over, unload the test package in case we start the test
  again (smoke)
  
  Revision  Changes    Path
  1.5       +3 -0      modperl-2.0/t/response/TestModules/reload.pm
  
  Index: reload.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestModules/reload.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- reload.pm 9 Sep 2004 22:16:38 -0000       1.4
  +++ reload.pm 11 Sep 2004 01:04:28 -0000      1.5
  @@ -3,6 +3,8 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use ModPerl::Util ();
  +
   use Apache::Const -compile => qw(OK);
   
   my $package = 'Apache::Reload::Test';
  @@ -12,6 +14,7 @@
       
       if ($r->args eq 'last') {
           Apache::Reload->unregister_module($package);
  +        ModPerl::Util::unload_package($package);
           $r->print("unregistered OK");
           return Apache::OK;
       }