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