GetDriver method of newly opened Datasource segfaults

[Ari Jolma]

Code like:

use Geo::GDAL;

#$driver = Geo::OGR::GetDriverByName('Memory');
$driver = Geo::OGR::GetDriverByName('Esri Shapefile');

$datasource = $driver->CreateDataSource('x');

$datasource->GetDriver;

causes a segafault:

with Memory driver:

#0  0x001aa473 in strlen () from /lib/libc.so.6
#1  0x0105b3f8 in CPLStat () from /usr/local/lib/libgdal.so.1
#2  0x0111981a in OGRShapeDataSource::Open () from /usr/local/lib/libgdal.so.1
#3  0x0111a7c6 in OGRShapeDriver::Open () from /usr/local/lib/libgdal.so.1
#4  0x01118a5d in OGRSFDriverRegistrar::Open ()
   from /usr/local/lib/libgdal.so.1
#5  0x01118d97 in OGROpen () from /usr/local/lib/libgdal.so.1
#6  0x00720f8c in _wrap_DataSource_GetDriver (my_perl=0x9167008, cv=0x9284930)
    at ogr_wrap.cpp:1788


with Shapefile driver:

#0  0x01025562 in OGRSFDriverRegistrar::ReleaseDataSource ()
   from /usr/local/lib/libgdal.so.1
#1  0x010259cc in OGRReleaseDataSource () from /usr/local/lib/libgdal.so.1
#2  0x00884f94 in _wrap_DataSource_GetDriver (my_perl=0x9eb6008, cv=0x9fd3930)
    at ogr_wrap.cpp:1789

The problem does not appear if the datasource is opened, not created