shut up perl -T warnings
This commit is contained in:
parent
99c167417c
commit
6521689fb7
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=29842
1 changed files with 6 additions and 1 deletions
|
@ -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);
|
||||
}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue