--- trunk/parse_format.pm	2003/03/15 21:33:36	40
+++ trunk/parse_format.pm	2003/03/23 01:14:59	46
@@ -6,10 +6,10 @@
 use isis_sf;
 
 sub parse_format {
-	my $format = shift;
-	my $row = shift;
+	my $format = shift || die "parse_format must be called with format!";
+	my $row = shift || die "parse_format must be called with row!";
 	my $i = shift || 0;	# isis repeatable number
-	my $codepage = shift || die;
+	my $codepage = shift || die "parse_format must be called with codepage!";
 
 	my $out;
 	my $out_swish;