diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-03-02 16:29:30 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-03-02 16:29:30 +0000 |
commit | c112c26f680728feab220393c7c502f759cc72df (patch) | |
tree | bf439205a6826d9747ef685e200968867153390f /lib/sbin/create_c_stuff.pl | |
parent | a57af17b9b91c27fe2d7c4e31760630f23cec7cf (diff) |
Removed some speech marks which seem to be surplus to requirements ...
Gab
git-svn-id: http://svn.cactuscode.org/flesh/trunk@373 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/create_c_stuff.pl')
-rw-r--r-- | lib/sbin/create_c_stuff.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/sbin/create_c_stuff.pl b/lib/sbin/create_c_stuff.pl index e4ad29c4..af68a0da 100644 --- a/lib/sbin/create_c_stuff.pl +++ b/lib/sbin/create_c_stuff.pl @@ -207,7 +207,10 @@ sub set_parameter_code { $quoted_range = $parameter_database{"\U$implementation $parameter\E range $range range"}; - $quoted_range =~ s:\":\\\":g; + #$quoted_range =~ s:\":\\\":g; + $quoted_range =~ s:\"::g; + $quoted_range =~ s:^\s*::; + $quoted_range =~ s:\s*$::; $line .= ",\"".$quoted_range."\""; @@ -456,7 +459,7 @@ sub order_params push(@string_params, $parameter); } elsif($type eq "LOGICAL" || - $type eq "INTEGER") + $type eq "INTEGER") { push(@int_params, $parameter); } |