Hi guys. I have the following PLSQL procedure prototype as follows:

PROCEDURE validate_user ( 
    p_event            IN    EVENT,
    p_user            IN    valid_users.userid%TYPE,
    p_password_only        IN    boolean,
    v_return_string        OUT    VARCHAR2)
[download]

My driver script for this is very simple:

#!/usr/bin/perl

use DBI;

$ENV{'ORACLE_HOME'} = '/space/oracle/app/oracle/product/8.1.5';

my $dbh = DBI->connect('my dsn',"bla bla","bla bla") or die("Can't con
+nect to Oracle database: $DBI::errstr\n");

my $sql = "BEGIN campaign.validate_user(?, ?, ?, ?); END;";

my $sth = $dbh->prepare($sql);


$sth->bind_param(1, 'V2001');

$sth->bind_param(2, 'billy');

$sth->bind_param(3, TRUE);

my $error_string;
my $return_code;

$sth->bind_param_inout(4, \$return_code,1000);

$sth->execute() or die("Execution error: $DBI::errstr\n");

print $error_string." : ".$return_code."\n";

$dbh->disconnect;
[download]

I'm having trouble with passing the value TRUE to the PLSQL procedure as perl seems to want to send it as a string which the procedure complains about.

The error returned is:

DBD::Oracle::st execute failed: ORA-06550: line 1, column 7:
PLS-00306: wrong number or types of arguments in call to 'VALIDATE_USE
+R'
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored (DBD ERROR: OCIStmtExecute) at ./nmsd.pl lin
+e 27.
Execution error: ORA-06550: line 1, column 7:
PLS-00306: wrong number or types of arguments in call to 'VALIDATE_USE
+R'
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored (DBD ERROR: OCIStmtExecute)
[download]

A way around it would be to change the stored procedure to accept a value 0 or 1 and interpret it as false and true, but I would rather sort this out on the perl end if possible :-)
Thanks for any help in advance.
Billy.