Cross Reference:
xref
: /
illumos-gate
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
ext
/
File
/
Glob
/
t
/
taint.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
taint.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl -T
BEGIN
{
chdir
't'
if
-d
't'
;
if
($^O
eq
'MacOS'
)
{
@
INC
=
qw
(: ::
lib
::
macos
:
lib
)
;
}
else
{
@
INC
=
'.'
;
push
@
INC
,
'../lib'
;
}
require
Config
;
import
Config
;
if
(
$Config
{
'extensions'
} !~ /\
bFile
\/
Glob
\b/i)
{
print
"1..0\n"
;
exit
0
;
}
print
"1..2\n"
;
}
END
{
print
"not ok 1\n"
unless
$loaded
;
}
use
File
::
Glob
;
$loaded
=
1
;
print
"ok 1\n"
;
# all filenames should be tainted
@a =
File
::
Glob
::
bsd_glob
(
"*"
)
;
eval
{ $a =
join
(
""
,@a)
,
kill
0
;
1
};
unless
($@ =~ /
Insecure
dependency
/)
{
print
"not "
;
}
print
"ok 2\n"
;