[projects/distfiles] avoid warning in specparser when parsing non 'sources' SourceX's

[glen]

commit 164cf5c1fb6980dc138e3da7ba5697f03e2a55e1
Author: Elan Ruusamäe <glen at delfi.ee>
Date:   Mon Mar 11 17:42:31 2013 +0200

    avoid warning in specparser when parsing non 'sources' SourceX's

 file-fetcher.pl    | 2 --
 request-handler.pl | 1 -
 specparser.pl      | 1 +
 3 files changed, 1 insertion(+), 3 deletions(-)
---
diff --git a/file-fetcher.pl b/file-fetcher.pl
index 6cc1980..92f4b8f 100755
--- a/file-fetcher.pl
+++ b/file-fetcher.pl
@@ -1,6 +1,4 @@
 #!/usr/bin/perl -w
-# $Id$
-
 use IPC::Run qw(run);
 
 $commits_list = "pld-cvs-commit\@lists.pld-linux.org";
diff --git a/request-handler.pl b/request-handler.pl
index 41addce..3b3bfab 100755
--- a/request-handler.pl
+++ b/request-handler.pl
@@ -1,5 +1,4 @@
 #!/usr/bin/perl -w
-# $Id$
 # read email with request from stdin and process it
 
 $spool_dir = "./spool";
diff --git a/specparser.pl b/specparser.pl
index e19ac6c..1e5900f 100755
--- a/specparser.pl
+++ b/specparser.pl
@@ -328,6 +328,7 @@ sub add_md5_to_print($) # {{{
 	delete @sourcemap{@mapped};
 	while (my($source, $url) = each %sourcemap) {
 		my ($basename) = $url =~ m{/([^/]+$)};
+		next unless defined $basename;
 		my $hash = $checksums->{$basename} or next;
 		push @sources, [$source, $hash, $url];
 	}
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/projects/distfiles.git/commitdiff/164cf5c1fb6980dc138e3da7ba5697f03e2a55e1