We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent c090c2f commit 122a01cCopy full SHA for 122a01c
lib/EvalbotExecuter.pm
@@ -75,6 +75,7 @@ use Scalar::Util qw(reftype);
75
use Encode qw(encode);
76
use charnames qw(:full);
77
use POSIX ();
78
+use Encode qw/decode_utf8/;
79
80
my $max_output_len = 290;
81
@@ -83,7 +84,7 @@ sub run {
83
84
if ($program =~ /^https:\/\/gist\.github\.com\/\d+$/) {
85
my $page = `curl -s $program`;
86
$page =~ /href="\/raw([^"]+)"/;
- if ($1) { $program = `curl -s https://raw.github.com/gist$1` } else { return 'gist not found' };
87
+ if ($1) { $program = decode_utf8 `curl -s https://raw.github.com/gist$1` } else { return 'gist not found' };
88
}
89
my $response = _fork_and_eval($program, $executer, $ename);
90
if (!length $response){
0 commit comments