diff options
author | eschnett <eschnett@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2011-12-12 03:02:44 +0000 |
---|---|---|
committer | eschnett <eschnett@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2011-12-12 03:02:44 +0000 |
commit | 3747e7efee9e6347cadb8b6d0d223a0c73d7c9dd (patch) | |
tree | ceda11c899be5ab73315c9900b2e6b5b444ddc3d /lib/sbin | |
parent | 35c85a91626352d648e60837e211238d3cc173a4 (diff) |
Properly check for errors when parsing parameter STEERABLE values
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4775 17b73243-c579-4c4c-a9d2-2d5706c11dac
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'; } |