Fixed small bug with parsing a missing default value for a parameter

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

1 files changed, 4 insertions, 3 deletions

diff --git a/lib/sbin/parameter_parser.pl b/lib/sbin/parameter_parser.pl
index e8160d48..c918c5ad 100644
--- a/lib/sbin/parameter_parser.pl
+++ b/lib/sbin/parameter_parser.pl
@@ -299,7 +299,7 @@ sub parse_param_ccl
         }
         if($block !~ m:SHARES:)
         {
-          if($data[$line_number] =~ m:\s*\}\s*(.+):)
+          if($data[$line_number] =~ m:\s*\}\s*([^\s].*):)
           {
               $default = $1;
               if ($type =~ m:INT|REAL: && $default =~ m:":)
@@ -326,8 +326,9 @@ sub parse_param_ccl
           }
           else
           {
-            $message =  "Unable to find default for $variable";
-            &CST_error(0,$message,"",__LINE__,__FILE__);
+            $message =  "Unable to find default value for parameter $variable";
+	    $hint = "Last line of parameter block should be } <default value>";
+            &CST_error(0,$message,$hint,__LINE__,__FILE__);
           }             
         }
       }