handle hash form of bugtracker resource data

The format changed with version 2 of the META spec.

1 files changed, 1 insertions, 0 deletions

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index 9dee04e309..2324152ed6 100755
--- a/Porting/corelist.pl
+++ b/Porting/corelist.pl
@@ -238,6 +238,7 @@ foreach my $module ( sort keys %module_to_upstream ) {
     my $dist = $module_to_dist{$module};
     $bug_tracker = $dist_to_meta_YAML{$dist}->{resources}{bugtracker}
         if $dist;
+    $bug_tracker = $bug_tracker->{web} if ref($bug_tracker) eq "HASH";
 
     $bug_tracker = defined $bug_tracker ? "'$bug_tracker'" : 'undef';
 	next if $bug_tracker eq "'http://rt.perl.org/perlbug/'";