Fixing fortran name generation, partially broken (especially for Windows)

sometime in the last few commits.

Tom


git-svn-id: http://svn.cactuscode.org/flesh/trunk@2185 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 3 insertions, 2 deletions

diff --git a/lib/make/configure.pl b/lib/make/configure.pl
index 0be47791..491e7765 100755
--- a/lib/make/configure.pl
+++ b/lib/make/configure.pl
@@ -40,12 +40,12 @@ sub test_fortran_name
 
   if($compiler_f77 && $compiler_f77 ne "" && $compiler_f77 !~ /none/)
   {
-    ($case, $n_underscores) = &compile_fortran_common_name($compiler_f77,$opts_f77);
+    ($case, $n_underscores) = &compile_fortran_name($compiler_f77,$opts_f77);
     $use_f77 = 1;
   }
   elsif ($compiler_f90 && $compiler_f90 ne "" && $compiler_f90 !~ /none/)
   {
-    ($case, $n_underscores) = &compile_fortran_common_name($compiler_f90,$opts_f90);
+    ($case, $n_underscores) = &compile_fortran_name($compiler_f90,$opts_f90);
     $use_f90 = 1;
   }
   
@@ -385,4 +385,5 @@ EOT
   # Delete the temporary files
   unlink <fname_test.*>;
 
+  return ($case,$n_underscores);
 }