version 1.12, 1997/11/19 19:07:18 |
version 1.13, 1997/11/19 19:20:22 |
Line 228 print("going to dolog($fullname)\n") if ($verbose); |
|
Line 228 print("going to dolog($fullname)\n") if ($verbose); |
|
# Display a form offering diffs between said tags |
# Display a form offering diffs between said tags |
} else { |
} else { |
# Assume it's a module name with a potential path following it. |
# Assume it's a module name with a potential path following it. |
($module = $where) =~ s|/.*||; |
$xtra = $& if (($module = $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>) { |