diff options
author | levine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-08-24 15:38:17 +0000 |
---|---|---|
committer | levine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-08-24 15:38:17 +0000 |
commit | 6f7598fd35f9f59f3ed246103f425e2462c56907 (patch) | |
tree | 7344e1caeb0e3ae4fb5d21eb855db735b680fe13 /bin | |
parent | edd70c75501dc2ab31c0a6ddd5d7ba4f754bf0f2 (diff) | |
download | ATCD-6f7598fd35f9f59f3ed246103f425e2462c56907.tar.gz |
ChangeLogTag: Tue Aug 24 10:37:02 1999 David L. Levine <levine@cs.wustl.edu>
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/cvslog | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/bin/cvslog b/bin/cvslog index b48bfbd1921..1330db622f8 100755 --- a/bin/cvslog +++ b/bin/cvslog @@ -140,14 +140,15 @@ sub find_changelogs () { "$pwd/[C]hangeLog-97b " . #### ACE_wrappers "$pwd/ChangeLog-9[89]* " . "$pwd/ChangeLog-0*"))) { - if ($pwd =~ m%^${dir_sep}%) { - $pwd = &basename ($pwd); - } else { + if ($pwd !~ m%^${dir_sep}%) { #### We're starting with a relative path. Get the #### absolute path. chomp ($pwd = `pwd`); + $pwd .= "/$file"; } + $pwd = &basename ($pwd); + if ($pwd eq '') { warn "$0: ChangeLog NOT FOUND for '$file'!!!!\n"; return (); |