=================================================================== RCS file: /cvs/cvsweb/cvsweb.cgi,v retrieving revision 3.6 retrieving revision 3.7 diff -u -p -r3.6 -r3.7 --- cvsweb/cvsweb.cgi 2000/07/28 21:38:45 3.6 +++ cvsweb/cvsweb.cgi 2000/07/29 09:24:14 3.7 @@ -41,7 +41,7 @@ # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # -# $Id: cvsweb.cgi,v 3.6 2000/07/28 21:38:45 knu Exp $ +# $Id: cvsweb.cgi,v 3.7 2000/07/29 09:24:14 knu Exp $ # ### @@ -1472,15 +1472,15 @@ sub getDirLogs { if ($tag) { #can't use -r as - is allowed in tagnames, but misinterpreated by rlog.. if (! open($fh, "-|")) { - close(STDERR); # rlog may complain; ignore. - exec("rlog",@files); + open(STDERR, '>/dev/null'); # rlog may complain; ignore. + exec('rlog', @files); } } else { my $kidpid = open($fh, "-|"); if (! $kidpid) { open(STDERR, '>/dev/null'); # rlog may complain; ignore. - exec("rlog","-r",@files); + exec('rlog', '-r', @files); } } $state = "start"; @@ -2329,7 +2329,7 @@ sub navigateHeader ($$$$$) { $swhere = urlencode($filename) if ($swhere eq ""); print "<\!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">"; print "\n\n"; - print ''; + print ''; print "\n$path$filename - $title - $rev\n"; print "\n"; print ""; @@ -2683,7 +2683,7 @@ sub http_header { sub html_header($) { my ($title) = @_; - my $version = '$Revision: 3.6 $'; + my $version = '$Revision: 3.7 $'; http_header(); print <