stas 2004/09/07 21:10:09
Modified: . Changes
lib/ModPerl BuildMM.pm
Log:
Fix a glue_pod make target bug, when .pm file doesn't exist,
e.g. ThreadMutex.pm is not created on unless
$apr_config->{HAS_THREADS}
Revision Changes Path
1.474 +4 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.473
retrieving revision 1.474
diff -u -u -r1.473 -r1.474
--- Changes 8 Sep 2004 00:42:02 -0000 1.473
+++ Changes 8 Sep 2004 04:10:09 -0000 1.474
@@ -12,6 +12,10 @@
=item 1.99_17-dev
+Fix a glue_pod make target bug, when .pm file doesn't exist,
+e.g. ThreadMutex.pm is not created on unless
+$apr_config->{HAS_THREADS} [Stas]
+
Introduce APR::Socket::poll to poll a non-blocking socket [Ken Simpson
<[EMAIL PROTECTED]>]
1.21 +5 -1 modperl-2.0/lib/ModPerl/BuildMM.pm
Index: BuildMM.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/BuildMM.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -u -r1.20 -r1.21
--- BuildMM.pm 19 Aug 2004 07:42:46 -0000 1.20
+++ BuildMM.pm 8 Sep 2004 04:10:09 -0000 1.21
@@ -271,7 +271,11 @@
die "expecting 3 arguments: pm, pod, dst" unless @ARGV == 3;
my($pm, $pod, $dst) = @ARGV;
- die "glue_pod: can't find $pm" unless -e $pm;
+ # it's possible that the .pm file is not existing
+ # (e.g. ThreadMutex.pm is not created on unless
+ # $apr_config->{HAS_THREADS})
+ return unless -e $pm;
+
die "glue_pod: can't find $dst" unless -e $dst;
# have we already glued the doc?
