--- trunk/all2xml.pl	2003/06/25 12:09:27	56
+++ trunk/all2xml.pl	2003/07/04 15:05:23	57
@@ -33,7 +33,7 @@
 
 my $path;	# this is name of database
 
-Text::Iconv->raise_error(1);     # Conversion errors raise exceptions
+Text::Iconv->raise_error(0);     # Conversion errors don't raise exceptions
 
 # this is encoding of all files on disk, including import_xml/*.xml file and
 # filter/*.pm files! It will be used to store strings in perl internally!
@@ -247,7 +247,7 @@
 	sub progress {
 		#return if (! $opts{q});	# FIXME
 		my $current = shift;
-		my $total = shift;
+		my $total = shift || 1;
 		my $p = int($current * 100 / $total);
 		if ($p != $last_p) {
 			printf STDERR ("%5d / %5d [%-51s] %-2d %% \r",$current,$total,"=" x ($p/2).">", $p );