os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix it so perl4 can grok.

Browse source 
I had carelessly used Perl5 specific syntax everywhere in my previous
changes as I wasn't aware that there were those mirror sites that
still use perl4.

Pointed out by:	wosch
This commit is contained in:
Akinori MUSHA 2000-07-18 18:27:14 +00:00
parent 89a691c11a
commit 73e3135673
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=7666
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
en/cgi/cvsweb.cgi
View file

@ -28,7 +28,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $FreeBSD: www/en/cgi/cvsweb.cgi,v 1.43 2000/07/12 05:25:50 jdp Exp $
# $FreeBSD: www/en/cgi/cvsweb.cgi,v 1.44 2000/07/13 09:01:10 knu Exp $
#
@ -480,13 +480,13 @@ sub dodiff {
#
# XXX Putting '-p' here is a personal preference
if ($f eq 'c') {
@difftype = qw{-p -c};
@difftype = ('-p', '-c');
$diffname = "Context diff";
} elsif ($f eq 's') {
@difftype = qw{--side-by-side --width=164};
@difftype = ('--side-by-side', '--width=164');
$diffname = "Side by Side";
} else {
@difftype = qw{-p -u};
@difftype = ('-p', '-u');
$diffname = "Unidiff";
}
# XXX should this just be text/plain
@ -513,7 +513,7 @@ sub dodiff {
#--- src/sys/netinet/tcp_output.c 1995/12/05 17:46:35 1.17 RELENG_2_1_0
# (bogus example, but...)
#
if (grep { $_ eq '-u' } @difftype) {
if (grep($_ eq '-u', @difftype)) {
$f1 = '---';
$f2 = '\+\+\+';
} else {