From 1e0430cfa31b27967d5933fa96ff2fab41ccdfb7 Mon Sep 17 00:00:00 2001
From: xaicron <xaicron@gmail.com>
Date: Sat, 25 Jun 2011 15:04:42 +0900
Subject: [PATCH] fixed scrape for depended-on-by.pl

---
 bin/pm-uninstall | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/pm-uninstall b/bin/pm-uninstall
index 2a496a9..4c34b86 100755
--- a/bin/pm-uninstall
+++ b/bin/pm-uninstall
@@ -115,7 +115,7 @@ sub ask_permission {
         warn "Checking modules depending on $vname\n" if $opt->{verbose};
         warn "-> Getting from $base_url$vname\n" if $opt->{verbose};
         my $content = get("$base_url$vname") || '';
-        for my $dep ($content =~ m|<li>([a-zA-Z0-9_:-]+)|smg) {
+        for my $dep ($content =~ m|<li><a href=[^>]+>([a-zA-Z0-9_:-]+)|smg) {
             $dep =~ s/^\s+|\s+$//smg; # trim
             next if $seen{$dep}++;
             push @deps, $dep if locate_pack($dep);