Commits

Toby Inkster committed cda78e9

regexp bugfix

Comments (0)

Files changed (1)

lib/P5U/Lib/DebianRelease.pm

 	}
 	for ($self->cache_file->slurp)
 	{
-		next unless /^(lib\S+-perl) \((\S+?)\)/;
+		next unless /^(lib\S+?-perl) \((\S+).*\)/;
 		$pkgs{$1} = $2;
 	}
 	\%pkgs
 		$dists{$dist} = $1;
 	}
 
+#	use Data::Dumper;
+#	$Data::Dumper::Sortkeys = 1;
+#	print Dumper $pkgs;
+
 	my @data;
 	for my $dist (sort keys %dists)
 	{