diff options
Diffstat (limited to 'lib/sbin')
-rw-r--r-- | lib/sbin/CreateParameterBindings.pl | 6 |
1 files 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'; } |