--- db/prgsrc/db.cgi	2001/05/17 03:46:25	1.16
+++ db/prgsrc/db.cgi	2001/05/17 03:48:31	1.17
@@ -7,7 +7,7 @@ use strict;
 use Time::Local;
 use POSIX qw(locale_h);
 my $debug=1; #added by R7
-open STDERR ">/home/roma7/errors" if $debug;
+open STDERR, ">/home/roma7/errors" if $debug;
 my ($PWD) = `pwd`;
 chomp $PWD;
 my ($SRCPATH) = "$PWD/../dimrub/src";