GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-19 10:29:30 +01:00
Code Issues Projects Releases Wiki Activity

ValidateString: localize $@

Browse Source
This commit is contained in:
Pragmatic Software 2020-02-16 15:55:48 -08:00
parent d60270192a
commit eb94c566b9
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
PBot/Utils/ValidateString.pm
View File

@ -17,6 +17,7 @@ sub validate_string {
return $string if not defined $string or not length $string; return $string if not defined $string or not length $string;
$max_length = 1024 * 8 if not defined $max_length; $max_length = 1024 * 8 if not defined $max_length;
local $@;
eval { eval {
my $h = decode_json($string); my $h = decode_json($string);
foreach my $k (keys %$h) { $h->{$k} = substr $h->{$k}, 0, $max_length unless $max_length <= 0; } foreach my $k (keys %$h) { $h->{$k} = substr $h->{$k}, 0, $max_length unless $max_length <= 0; }