Convert - in filenames to _ for function names

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@23204 57a11ea4-9604-0410-9ed3-97b8803252fd
pull/2/head
John Ralls 13 years ago
parent a3417ff44b
commit ac0e3b36bf

@ -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));

Loading…
Cancel
Save