Convert - in filenames to _ for function names

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@23204 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
John Ralls 2013-10-03 21:39:11 +00:00
parent a3417ff44b
commit ac0e3b36bf

View File

@ -222,6 +222,7 @@ sub print_preamble {
my @date = localtime(time());
my $year = $date[5] + 1900;
delete $indirs[-1];
$inname =~ tr/-/_/;
$indirs[0] = "";
eval{
$indir = File::Spec->catfile((@indirs, $inName));