--- db/prgsrc/dump2dump.pl 2001/10/31 03:07:27 1.2 +++ db/prgsrc/dump2dump.pl 2001/11/01 01:44:59 1.3 @@ -20,7 +20,7 @@ dump2dump.pl input output oldtable newta =cut - + use lib "../lib"; use dbchgk; open (T2, $ARGV[3]) or die "3: Can not open ". $ARGV[3]; @@ -73,7 +73,7 @@ close (DUMP2); print "Setting ProcessedBySearch...\n"; -$sch=0 +$sch=0; foreach my $id (values %id) { print " $sch...\n" unless (++$sch%100);