perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From sbek...@hyperreal.org
Subject cvs commit: modperl/lib/Apache test.pm
Date Sat, 14 Aug 1999 11:43:49 GMT
sbekman     99/08/14 04:43:49

  Modified:    lib/Apache test.pm
  Log:
  Added validation that the OS knows the name of the server in
  $net::httpserver e.g. if 'localhost' is not defined, the tests wouldn't
  pass. I've fallen on this case, now it's covered.
  
  Revision  Changes    Path
  1.13      +5 -0      modperl/lib/Apache/test.pm
  
  Index: test.pm
  ===================================================================
  RCS file: /export/home/cvs/modperl/lib/Apache/test.pm,v
  retrieving revision 1.12
  retrieving revision 1.13
  diff -u -r1.12 -r1.13
  --- test.pm	1999/07/02 22:20:03	1.12
  +++ test.pm	1999/08/14 11:43:48	1.13
  @@ -15,6 +15,11 @@
   	eval { require "net/config.pl"; }; #for 'make test'
   	$PERL_DIR = $net::perldir;
       } 
  +    # Validate that the OS knows the name of the server in $net::httpserver     
  +    # if 'localhost' is not defined, the tests wouldn't pass
  +    (my $hostname) = ($net::httpserver =~ /(.*?):/);
  +    warn qq{\n*** [Crucial] You must define "$hostname" (e.g. in /etc/hosts) in order for
'make test' to pass\n}  
  +      unless gethostbyname $hostname;
   }
   
   $PERL_DIR = $ENV{PERL_DIR} if exists $ENV{PERL_DIR};
  
  
  

Mime
View raw message