[Pkg-xfce-commits] r3548 - scripts

[Evgeni Golov]

Author: evgeni
Date: 2009-10-06 22:43:07 +0000 (Tue, 06 Oct 2009)
New Revision: 3548

Modified:
   scripts/get-sources.pl
Log:
ignore only comments silently, warn about the others


Modified: scripts/get-sources.pl
===================================================================
--- scripts/get-sources.pl	2009-10-06 22:08:22 UTC (rev 3547)
+++ scripts/get-sources.pl	2009-10-06 22:43:07 UTC (rev 3548)
@@ -50,12 +50,17 @@
 while(<SOURCES>) {
 	chop;
 	my ($pkg, $tarball, $version) = split;
-	! -d "$debian_dirs/$pkg" and next;
+	$pkg =~ /^#/ and next;
 
 	if (!$fetch_all && !grep($_ eq $pkg, @fetch_packages)) {
 		next;
 	}
 
+	if (! -d "$debian_dirs/$pkg") {
+		print "W: $pkg has no $debian_dirs/$pkg. Skipping\n";
+		next;
+	}
+
 	if ($tarball =~ /^DUMMY$/i) {
 		print "W: $pkg is a DUMMY package. Skipping\n";
 		next;