[projects/distfiles/distfiles2: 2/7] - use print_source, so the url be validated

[glen]

commit 21a8f7d4a9c1b70d1f2ccc7fce265e19d783f701
Author: Elan Ruusamäe <glen at delfi.ee>
Date:   Fri Nov 30 10:15:29 2012 +0200

    - use print_source, so the url be validated

 specparser.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)
---
diff --git a/specparser.pl b/specparser.pl
index e2274e9..07d4611 100755
--- a/specparser.pl
+++ b/specparser.pl
@@ -24,6 +24,8 @@ my @sources;
 my $sources;
 my %patchset;
 
+sub print_source($$$);
+
 sub next_spec($)
 {
     $spec = shift;
@@ -156,7 +158,7 @@ sub process_patchset($) {
         my $url = sprintf($patchset{pattern}, $i);
         my ($basename) = $url =~ m{/([^/]+$)};
         my $hash = $files{$basename} or next;
-        printf "%s %s\n", $hash, $url;
+        print_source "patchset $i", $hash, $url;
     }
 }
 
================================================================

---- gitweb:

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