develooper Front page | perl.perl5.porters | Postings from August 2003

Re: need your help to test mod_perl with perl-5.8.1-RC3

Thread Previous
From:
Joe Schaefer
Date:
August 2, 2003 00:19
Subject:
Re: need your help to test mod_perl with perl-5.8.1-RC3
Message ID:
m3llucv7zg.fsf@sol.sunstarsys.com
schwern@pobox.com (Michael G Schwern) writes:

[...]

> It would be nice if someone could dig through libapreq's version history
> and figure out when and why this hack was put in.

FWIW, here's the 1.2-1.3 diff for c/Makefile.PL.  It answers the "when", 
but I'm still not sure about the "why".

% cvs log c/Makefile.PL
[...]
----------------------------
revision 1.3
date: 1999/01/27 21:31:04;  author: dougm;  state: Exp;  lines: +13 -3
some dynamic target fixups
----------------------------
revision 1.2
date: 1999/01/27 06:30:05;  author: dougm;  state: Exp;  lines: +0 -2
cleanups
----------------------------
revision 1.1
date: 1999/01/27 05:44:13;  author: dougm;  state: Exp;
added

% cvs diff -b -r 1.2 -r 1.3 c/Makefile.PL
Index: c/Makefile.PL
===================================================================
RCS file: /home/cvs/httpd-apreq/c/Makefile.PL,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- c/Makefile.PL	27 Jan 1999 06:30:05 -0000	1.2
+++ c/Makefile.PL	27 Jan 1999 21:31:04 -0000	1.3
@@ -18,7 +18,7 @@
     WriteMakefile(
        #grr, problems with things finding libapreq.so, sort out later.
        'LINKTYPE' => 'static',
-       'SKIP' => [qw(dynamic dynamic_lib dynamic_bs)],
+#       'SKIP' => [qw(dynamic_lib dynamic_bs)],
        'NAME'	 => 'libapreq',
        'INC' 	 => $src->inc,
        'TYPEMAPS'   => $src->typemaps,
@@ -31,14 +31,24 @@
 $ENV{LD_RUN_PATH} = 
     "$ENV{LD_RUN_PATH}:$Config{installsitearch}/auto/libapr:$pwd";
 
+sub MY::dynamic {
+    my $self = shift;
+    my $string = $self->MM::dynamic;
+    $string =~ s/(Makefile\s+).*/$1/g;
+    $string;
+}
+
 sub MY::top_targets { 
     my $self = shift; 
     my $string = $self->MM::top_targets; 
     my $libapreq = <<"EOF";
 LD_RUN_PATH = $ENV{LD_RUN_PATH}
 EOF
+
+    my $so = "\n".'$(DLBASE).$(DLEXT): $(INST_DYNAMIC)'."\n";
+
     $string =~ s/(pure_all\s+::\s+)(.*)/$1 static $2/; 
-    return $libapreq . $string;
+    return $libapreq . $so . $string;
 }
 
 sub MY::post_initialize { 

Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About