Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 16:55:42 -04:00
Code Issues Releases Wiki Activity

Enable https and better combining character semantics.

Browse source
This commit is contained in:
Ryan Voots 2017-10-30 18:18:46 -04:00
parent 7e175c84ea
commit fa8607d29f
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plugins/get.pm
View file

@ -21,7 +21,7 @@ sub {
my $ua = LWP::UserAgent->new( agent => "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_9_5) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/45.0.2454.85 Safari/537.36" );
my $url;
if( $said->{body} =~ s{(http://\S+)\s*}{} ) {
if( $said->{body} =~ s{(https?://\S+)\s*}{} ) {
$url = $1;
}
elsif( $said->{body} =~ s/(\S+)\s*// ) {

4
plugins/unicode.pm
View file

@ -32,7 +32,9 @@ sub unip {
push @err, sprintf "U+%X (%s): no match found", $_, $utf8;
next;
}
push @out, "U+$x->{code} ($utf8): $x->{name} [$chr]";
my $comb = "";
$comb = " " if $x->{name} =~ /^COMBINING /;
push @out, "U+$x->{code} ($utf8): $x->{name} [$comb$chr]";
}
\@err, \@out