From 3747e7efee9e6347cadb8b6d0d223a0c73d7c9dd Mon Sep 17 00:00:00 2001 From: eschnett Date: Mon, 12 Dec 2011 03:02:44 +0000 Subject: Properly check for errors when parsing parameter STEERABLE values git-svn-id: http://svn.cactuscode.org/flesh/trunk@4775 17b73243-c579-4c4c-a9d2-2d5706c11dac --- lib/sbin/CreateParameterBindings.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/sbin/CreateParameterBindings.pl b/lib/sbin/CreateParameterBindings.pl index 9202d98e..385bff80 100644 --- a/lib/sbin/CreateParameterBindings.pl +++ b/lib/sbin/CreateParameterBindings.pl @@ -471,15 +471,15 @@ sub CreateParameterRegistrationStuff # Set steerable details my $steerable = $rhparameter_db->{"\U$thorn $parameter\E steerable"}; - if ($steerable =~ /never/i || $steerable =~/^$/) + if ($steerable =~ /^never$/i || $steerable =~/^$/) { $steerable_type = 'CCTK_STEERABLE_NEVER'; } - elsif ($steerable =~ /always/i) + elsif ($steerable =~ /^always$/i) { $steerable_type = 'CCTK_STEERABLE_ALWAYS'; } - elsif ($steerable =~ /recover/i) + elsif ($steerable =~ /^recover$/i) { $steerable_type = 'CCTK_STEERABLE_RECOVER'; } -- cgit v1.2.3