commit aa8d7cd3db1f1eba8ee77b902cff1b2ab2a3f83a Author: Yury Gribov Date: Mon Jul 21 12:05:10 2014 +0400 2014-07-21 Yury Gribov * mklog: Allow running from arbitrary folder. diff --git a/contrib/mklog b/contrib/mklog index cdc6455..3d17dc5 100755 --- a/contrib/mklog +++ b/contrib/mklog @@ -30,16 +30,15 @@ $username = $ENV{'USER'}; $name = `finger $username | grep -o 'Name: .*'`; @n = split(/: /, $name); -$name = @n[1]; chop($name); +$name = $n[1]; chop($name); $addr = $username . "\@my.domain.org"; $date = `date +%Y-%m-%d`; chop ($date); $gcc_root = $0; $gcc_root =~ s/[^\\\/]+$/../; -chdir $gcc_root; # if this is a git tree then take name and email from the git configuration -if (-d .git) { +if (-d "$gcc_root/.git") { $gitname = `git config user.name`; chomp($gitname); if ($gitname) { @@ -80,7 +79,7 @@ sub get_clname ($) { my $dirname = $_[0]; while ($dirname) { my $clname = "$dirname/ChangeLog"; - if (-f $clname) { + if (-f "$gcc_root/$clname") { my $relname = substr ($_[0], length ($dirname) + 1); return ($clname, $relname); } else {