[BACK]Return to cvsweb.cgi CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / cvsweb

Diff for /cvsweb/cvsweb.cgi between version 1.4 and 1.5

version 1.4, 1997/02/03 20:47:12 version 1.5, 1997/03/20 01:36:20
Line 469  if (-d $fullname) {
Line 469  if (-d $fullname) {
         print &html_footer;          print &html_footer;
         print "</BODY></HTML>\n";          print "</BODY></HTML>\n";
 } else {  } else {
           # Assume it's a module name with a potential path following it.
           $where =~ s|/.*||;
           $xtra = $&;
         # Is there an indexed version of modules?          # Is there an indexed version of modules?
         if (open(MODULES, "$cvsroot/CVSROOT/modules")) {          if (open(MODULES, "$cvsroot/CVSROOT/modules")) {
                 while (<MODULES>) {                  while (<MODULES>) {
                         if (/^${where}\s+(\S+)/o && -d "${cvsroot}/$1") {                          if (/^${where}\s+(\S+)/o && -d "${cvsroot}/$1") {
                                 &redirect($scriptname . '/' . $1);                                  &redirect($scriptname . '/' . $1 . $xtra);
                         }                          }
                 }                  }
         }          }
Line 502  sub revcmp {
Line 505  sub revcmp {
         local(@r2) = split(/\./, $rev2);          local(@r2) = split(/\./, $rev2);
         local($a,$b);          local($a,$b);
   
         while (($a = pop(@r1)) && ($b = pop(@r2))) {          while (($a = shift(@r1)) && ($b = shift(@r2))) {
             if ($a != $b) {              if ($a != $b) {
                 return $a <=> $b;                  return $a <=> $b;
             }              }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

CVSweb