Permalink
Browse files

Handle entity-encoded module names

  • Loading branch information...
1 parent 3361630 commit 31e68793483a67545146335157bf623cd41c3ebf @drench committed Nov 14, 2010
Showing with 4 additions and 1 deletion.
  1. +4 −1 cpansion
View
@@ -9,6 +9,7 @@ use strict;
use integer;
use warnings;
+use HTML::Entities ();
use HTML::TokeParser ();
use LWP::UserAgent ();
@@ -50,7 +51,9 @@ while (my $tok = $p->get_token) {
my $tt = $p->get_token;
next if $tt->[0] ne 'T';
- if ($tt->[1] =~ /^$mod-(.+)$/) {
+ my $mv = HTML::Entities::decode_entities($tt->[1]);
+
+ if ($mv =~ /^$mod-(.+)$/) {
print "$1\n";
exit 1;
}

0 comments on commit 31e6879

Please sign in to comment.