shut up perl -T warnings

This commit is contained in:
Wolfram Schneider 2007-03-19 18:13:51 +00:00
parent 99c167417c
commit 6521689fb7
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=29842

View file

@ -26,10 +26,12 @@
#
# url.cgi - make plain text URLs clickable
#
# $FreeBSD: www/en/cgi/url.cgi,v 1.34 2005/10/20 20:03:36 fenner Exp $
# $FreeBSD: www/en/cgi/url.cgi,v 1.35 2007/03/19 17:52:39 wosch Exp $
use strict;
$ENV{"PATH"} = "/bin:/usr/bin";
$main::hsty_email = 'ports@FreeBSD.org';
# shutup perl -w
@ -64,6 +66,9 @@ if ($file =~ m%^ports/([\w\-]+)/(\w[\w\-+.]+)/pkg-descr%) {
print &html_header(
"Port description for $1/$2");
$portcategory = $1;
# XXX: shut up perl -T warnings
$file = qq{ports/$1/$2/pkg-descr};
} else {
print &short_html_header($file);
}