[Mapserver-users] seg fault

[Nick Petersen-Bergeron]

Can anyone think of any good reason why I would get a seg fault from the 
following code:

#!/usr/bin/perl

use mapscript;
use XBase;

my $lefloreFile = "/home/httpd/cgi-bin/dm/shapes/leflore_ms";

my $soilShapeFile = "/home/httpd/cgi-bin/dm/shapes/soiltype";
my $soilShapeDBF = "/home/httpd/cgi-bin/dm/shapes/soiltype.dbf";

my $soilShapeFileObj = new shapefileObj($soilShapeFile,MS_SHAPEFILE_POLYGON);

my $soilShape_xbase = XBase->create("name" => "$soilShapeDBF","field_names" 
=> ["county_name","id"], "field_types" => ["C","N"], "field_lengths" => 
[32,4],"field_decimals"=>[0,0]) or die print XBase->errstr;

my $leforeShapeFile = new shapefileObj($lefloreFile,-1);
print "$SFile\n";
my $SFile = "/home/httpd/cgi-bin/dm/shapes/S941604";
my $SShapeFile = new shapefileObj($SFile,-1);

It seg faults on the last line.

Nick Petersen-Bergeron
System Administrator

ZedX Inc.
369 Rolling Ridge Drive
Bellefonte, PA. 16823