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};
}
}
