taint.t   [plain text]

#!/usr/bin/perl -Tw

use strict;
use Test::More tests => 2;

use UNIVERSAL::require;

my $tainted = $0."bogus";
ok !eval { $tainted->require or die $@};
like $@, '/^Insecure dependency in require /';