I'm not subscribed to this mailing list, but I searched the archives for
this patch and found no direct answers, only references to the current
modperl in CVS.  I extracted the relevant pieces into a patch and thought
other people would have the same problem and would benefit from this patch.
So this is for the mail archive.  It solves the problem of prompting for
../apache_x.x/src and for the failed test that reports
   Use of unitialized value at modules/src.t at line 27

- Dave Dykstra


*** Makefile.PL.O       Wed Jan 17 13:21:41 2001
--- Makefile.PL Thu Jan 18 10:21:09 2001
***************
*** 1496,1503 ****
      my($string, $extra, @vers);
      while(<$fh>) {
        next unless /^#define/;
!       s/SERVER_PRODUCT \"/\"Apache/; #1.3.13+
!       next unless s/^#define\s+SERVER_(BASE|)VERSION\s+"(.*)\s*".*/$2/;
        chomp($string = $_);
  
        #print STDERR "Examining SERVER_VERSION '$string'...";
--- 1496,1506 ----
      my($string, $extra, @vers);
      while(<$fh>) {
        next unless /^#define/;
!       s/SERVER_PRODUCT \"/\"Apache/; #1.3.13
!       next unless s/^#define\s+SERVER_(BASE|)(VERSION|REVISION)\s+"(.*)\s*".*/$3/;
!         unless (m:/:) {
!             $_ = "Apache/$_"; #1.3.14, argh
!         }
        chomp($string = $_);
  
        #print STDERR "Examining SERVER_VERSION '$string'...";
*** lib/Apache/src.pm.O Thu Jan 18 10:19:43 2001
--- lib/Apache/src.pm   Thu Jan 18 10:20:30 2001
***************
*** 212,219 ****
  
      while(<$fh>) {
        next unless /^#define/;
!       s/SERVER_PRODUCT \"/\"Apache/; #1.3.13+
!       next unless s/^#define\s+SERVER_(BASE|)VERSION\s+"(.*)\s*".*/$2/;
        chomp($string = $_);
  
        #print STDERR "Examining SERVER_VERSION '$string'...";
--- 212,222 ----
  
      while(<$fh>) {
        next unless /^#define/;
!       s/SERVER_PRODUCT \"/\"Apache/; #1.3.13
!       next unless s/^#define\s+SERVER_(BASE|)(VERSION|REVISION)\s+"(.*)\s*".*/$3/;
!         unless (m:/:) {
!             $_ = "Apache/$_"; #1.3.14, argh
!         }
        chomp($string = $_);
  
        #print STDERR "Examining SERVER_VERSION '$string'...";

Reply via email to