Unbusticate evalbot execution of gists

Chase the ever changing URL extraction scheme to access the raw gist.

Author: thundergnat

lib/EvalbotExecuter.pm

@@ -83,8 +83,8 @@ sub run {
     my ($program, $executer, $ename) = @_;
     if ($program =~ /^https:\/\/gist\.github\.com\/[^\/]+?\/\p{HexDigit}+$/) {
       my $page = `curl -s $program`;
-      $page =~ /<a\b[^>]+?\btitle="View Raw"[^>]+?\bhref="([^"]+)"/;
-      if ($1) { $program = decode_utf8 `curl -s $1` } else { return 'gist not found' };
+      $page =~ /<a\b[^>]+?\baria-label="View Raw"[^>]+?\bhref="([^"]+)"/;
+      if ($1) { $program = decode_utf8 `curl -s https://gist.github.com$1` } else { return 'gist not found' };
     } elsif ($program =~ /^https:\/\/github\.com\/([^\/]+\/[^\/]+)\/blob\/([^\/]+\/[^\/].*)$/) {
       my ($project, $file) = ($1, $2);
       my $page = `curl -s $program`;