Convert - in filenames to _ for function names

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@23204 57a11ea4-9604-0410-9ed3-97b8803252fd

test-templates/make-testfile

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