diff --git a/plugins/get.pm b/plugins/get.pm index 9c100be..843ab6f 100644 --- a/plugins/get.pm +++ b/plugins/get.pm @@ -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*// ) { diff --git a/plugins/unicode.pm b/plugins/unicode.pm index 96f70f7..7872b65 100644 --- a/plugins/unicode.pm +++ b/plugins/unicode.pm @@ -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