common/tools/populateziptemplate.pl
changeset 628 90be37e95e2f
parent 614 ebd02353c4d9
child 644 7d99049bc47b
--- a/common/tools/populateziptemplate.pl	Thu Oct 08 19:36:20 2009 +0100
+++ b/common/tools/populateziptemplate.pl	Thu Oct 08 19:37:59 2009 +0100
@@ -72,7 +72,7 @@
 {
 	warn "Warning: Package $package->{dst} does not appear on the local system\n" unless -d $package->{dst};
 	$package->{dst} =~ s{^/}{}g;
-	if ($package->{source} =~ m{/(sfl|oss)/(MCL|FCL)/(sf|utilities)/(([^/]+)/([^/]+))?})
+	if ($package->{source} =~ m{/(sfl|oss)/(MCL|FCL)/(sf|utilities|interim)/(([^/]+)/)?([^/]+)?})
 	{
 		my ($license, $codeline, $thingy, $layer, $packageName) = ($1, $2, $3, $5, $6);
 		# $thingy is the part of the path after the codeline. For
@@ -86,6 +86,19 @@
 			$layer = "tools";
 			$packageName = "utilities";
 		}
+		elsif ($thingy eq "interim")
+		{
+			if ($layer eq "QEMU")
+			{
+				$packageName = $layer;
+				$layer = "os";
+			}
+			else
+			{
+				warn "ERROR: Don't know how to deal with interim package $layer\n";
+				goto MISC_PACKAGE;
+			}
+		}
 		elsif (!defined $packageName)
 		{
 			goto MISC_PACKAGE;