#263 [Perl] When run bind_param for statement, if the parameters number less than ?, it hasn't any warning.

[Jira Trac]

Repro steps:
Statements in _43_enum/cases/simple_bind_param_02.pl
{noformat}
ok(my $sth=$dbh-prepare(select e1 + ?, ? + e1, e1 + ?, e1 * ?, e1 + ? from enumb02 where e1 ? order by 1, 2, 3, 4, 5),1 select prepare
);
ok($sth-bind_param(1,1),2 bind_param ok);
ok($sth-bind_param(2,2),2 bind_param ok);
ok($sth-bind_param(2,3),2 bind_param ok);
ok($sth-bind_param(2,4),2 bind_param ok);
ok($sth-execute(),4 execute ok);
$sth-finish();
{noformat}

Actual result:
When run the script, it hasn't any warning.

Additional:
When add parameters number less than the number of ? for insert, it hasn't any warning too.
It will pop warning in csql.