Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm
Precedence: bulk
Reply-To: test-dev@httpd.apache.org
Date: 9 Apr 2002 07:38:57 -0000
Message-ID: <20020409073857.48203.qmail@icarus.apache.org>
From: stas@apache.org
To: httpd-test-cvs@apache.org
Subject: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache
 TestMM.pm

stas        02/04/09 00:38:57

  Modified:    perl-framework/Apache-Test/lib/Apache TestMM.pm
  Log:
  force the aliasing of MY:: functions so they will affect the WriteMakefile
  in subdirs as well. (must do the forcing because MakeMaker moves the
  aliases elsewhere on each invocation)
  
  Revision  Changes    Path
  1.16      +3 -2      httpd-test/perl-framework/Apache-Test/lib/Apache/TestMM.pm
  
  Index: TestMM.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestMM.pm,v
  retrieving revision 1.15
  retrieving revision 1.16
  diff -u -r1.15 -r1.16
  --- TestMM.pm	23 Dec 2001 16:16:24 -0000	1.15
  +++ TestMM.pm	9 Apr 2002 07:38:57 -0000	1.16
  @@ -16,8 +16,9 @@
           }
           no strict 'refs';
           my $sub = "MY::$section";
  -        #e.g. modperl-2.0/Makefile.PL pulls in Apache-Test/Makefile.PL
  -        next if defined &$sub;
  +        # Force aliasing, since previous WriteMakefile might have
  +        # moved it
  +        undef &$sub if defined &$sub;
           *$sub = \&{$section};
       }
   }