--- trunk/IsisDB.pm	2005/01/05 21:23:04	33
+++ trunk/IsisDB.pm	2005/01/06 00:40:07	34
@@ -192,12 +192,12 @@
 	# NXTMFB*	last block allocated to master file
 	# NXTMFP	offset to next available position in last block
 	# MFTYPE	always 0 for user db file (1 for system)
-	seek($self->{'fileMST'},4,0) || carp "can't seek to offset 0 in MST: $!";
+	seek($self->{'fileMST'},4,0) || croak "can't seek to offset 0 in MST: $!";
 
 	my $buff;
 
-	read($self->{'fileMST'}, $buff, 4) || carp "can't read NXTMFN from MST: $!";
-	$self->{'NXTMFN'}=unpack("V",$buff) || carp "NXTNFN is zero";
+	read($self->{'fileMST'}, $buff, 4) || croak "can't read NXTMFN from MST: $!";
+	$self->{'NXTMFN'}=unpack("V",$buff) || croak "NXTNFN is zero";
 
 	print STDERR Dumper($self),"\n" if ($self->{debug});
 
@@ -240,15 +240,15 @@
 
 	# Get the index information from $db.CNT
    
-	open(my $fileCNT, $self->{cnt_file}) || carp "can't read '$self->{cnt_file}': $!";
+	open(my $fileCNT, $self->{cnt_file}) || croak "can't read '$self->{cnt_file}': $!";
 	binmode($fileCNT);
 
 	my $buff;
 
-	read($fileCNT, $buff, 26) || carp "can't read first table from CNT: $!";
+	read($fileCNT, $buff, 26) || croak "can't read first table from CNT: $!";
 	$self->unpack_cnt($buff);
 
-	read($fileCNT, $buff, 26) || carp "can't read second table from CNT: $!";
+	read($fileCNT, $buff, 26) || croak "can't read second table from CNT: $!";
 	$self->unpack_cnt($buff);
 
 	close($fileCNT);
@@ -335,7 +335,7 @@
 
 	# read XRFMFB abd XRFMFP
 	read($self->{'fileXRF'}, $buff, 4);
-	my $pointer=unpack("V",$buff) || carp "pointer is null";
+	my $pointer=unpack("V",$buff) || croak "pointer is null";
 
 	# check for logically deleted record
 	if ($pointer & 0x80000000) {