Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: perl6/evalbot
base: b0e08cf6e7
...
head fork: perl6/evalbot
compare: 228beb25c7
  • 2 commits
  • 1 file changed
  • 0 commit comments
  • 2 contributors
Commits on Mar 07, 2014
@raydiak raydiak Fix gist loading 141ae5b
Commits on Mar 08, 2014
@FROGGS FROGGS Merge pull request #4 from raydiak/master
Untested attempt to fix gist loading
228beb2
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/EvalbotExecuter.pm
View
4 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 title="View Raw" href="([^"]+)"/;
- if ($1) { $program = decode_utf8 `curl -s https://gist.github.com$1` } else { return 'gist not found' };
+ $page =~ /<a\b[^>]+?\btitle="View Raw"\b[^>]+?\bhref="([^"]+)"/;
+ if ($1) { $program = decode_utf8 `curl -s $1` } else { return 'gist not found' };
} elsif ($program =~ /^https:\/\/github\.com\/([^\/]+\/[^\/]+)\/blob\/([^\/]+\/[^\/].*)$/) {
my ($project, $file) = ($1, $2);
my $page = `curl -s $program`;

No commit comments for this range

Something went wrong with that request. Please try again.