httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From br...@hyperreal.org
Subject cvs commit: apache-site/dyn closer.cgi
Date Sat, 10 Oct 1998 19:25:22 GMT
brian       98/10/10 12:25:22

  Modified:    dyn      closer.cgi
  Log:
  I swear, sometimes perl just mystifies me.  Change the "next" call
  because for some reason it was rejecting everything.  Fix the "split"
  line because the fifth field in mirrors.list can have spaces in it.
  
  Revision  Changes    Path
  1.7       +2 -2      apache-site/dyn/closer.cgi
  
  Index: closer.cgi
  ===================================================================
  RCS file: /export/home/cvs/apache-site/dyn/closer.cgi,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- closer.cgi	1998/10/09 14:27:42	1.6
  +++ closer.cgi	1998/10/10 19:25:21	1.7
  @@ -24,9 +24,9 @@
       $count = 0;
       while(<MIRRORS>)
       {
  -	next if (/^#/, $_);
  +	next if (/^#/);
   	chomp;
  -	@AR = split (/\s/, $_);
  +	@AR = split (/\s/, $_, 5);
   	if(($cc eq $AR[1] || $sld.".".$tld eq $AR[1]) && $AR[0] eq $method)
   	{
   	    $LIST[$count] = $AR[2];
  
  
  

Mime
View raw message