=================================================================== RCS file: /cvs/cvsweb/cvsweb.cgi,v retrieving revision 4.2 retrieving revision 4.8 diff -u -p -r4.2 -r4.8 --- cvsweb/cvsweb.cgi 2019/11/09 09:10:05 4.2 +++ cvsweb/cvsweb.cgi 2019/11/09 09:41:07 4.8 @@ -1,5 +1,5 @@ -#!/usr/bin/perl -T -# $Id: cvsweb.cgi,v 4.2 2019/11/09 09:10:05 schwarze Exp $ +#!/usr/bin/perl +# $Id: cvsweb.cgi,v 4.8 2019/11/09 09:41:07 schwarze Exp $ # $knu: cvsweb.cgi,v 1.299 2010/11/13 16:37:18 simon # # cvsweb - a CGI interface to CVS trees. @@ -50,7 +50,6 @@ require 5.006; use strict; - use warnings; use filetest qw(access); @@ -88,7 +87,6 @@ use vars qw ( ); use Cwd qw(abs_path); -use File::Basename qw(dirname); use File::Path qw(rmtree); use File::Spec::Functions qw(canonpath catdir catfile curdir devnull rootdir tmpdir updir); @@ -115,7 +113,7 @@ use constant HAS_EDIFF => eval { require String::Ed BEGIN { - $VERSION = '3.0.6'; + $VERSION = '3.1'; $HTML_DOCTYPE = '\n"; print ''; - if (defined @mytz) { + if (@mytz) { my ($est) = $mytz[(localtime($date{$_}))[8]]; print scalar localtime($date{$_}), " $est ("; } else { @@ -4210,6 +4194,7 @@ sub htmlquote($) # Special Characters; RFC 1866 s/&/&/g; s/\"/"/g; + s/%22/"/g; s//>/g; return $_;