#397 [Perl] After importing a NULL BLOB file, the exporting operation cause segment fault.

[Jira Trac]

When exporting a NULL BLOB column, segment fault occurs(Line 20).

The test case is as below:

{code}
my $table = test_cubrid;
my $create = EOT;
CREATE TABLE $table (
id INT(3) NOT NULL DEFAULT 0,
picture BLOB )
EOT

ok ($dbh-do($create));

# Insert a row into the test table.......
my ($sth, $query);
$query = INSERT INTO $table VALUES(1, NULL);
$sth = $dbh-prepare($query);
$sth-execute;
$sth-finish;

$sth = $dbh-prepare(SELECT * FROM $table WHERE id = 1);
$sth-execute;
$sth-cubrid_lob_get(2);
$sth-cubrid_lob_export(1, out); ----- Here: segment fault

$sth-cubrid_lob_close;
$sth-finish;
{code}