--- db/prgsrc/updatedb.pl 2002/11/11 09:57:49 1.28 +++ db/prgsrc/updatedb.pl 2003/01/08 21:54:49 1.29 @@ -28,7 +28,7 @@ The database, user and password are hard Dmitry Rubinstein -=head1 $Id: updatedb.pl,v 1.28 2002/11/11 09:57:49 roma7 Exp $ +=head1 $Id: updatedb.pl,v 1.29 2003/01/08 21:54:49 roma7 Exp $ =cut @@ -36,7 +36,7 @@ use vars qw($opt_i); use Getopt::Std; getopts('i'); - +#open STDERR, ">errors"; my $Interactive=$opt_i || 0;