From 9586e93e20b43ec2922fface25b502e43e890e2f Mon Sep 17 00:00:00 2001
From: Michael Pyne <mpyne@kde.org>
Date: Sat, 10 Mar 2012 20:58:25 -0500
Subject: [PATCH] Allow XML reader to work from generic IO handles.

This will allow for dumping HTTP output straight into the XML reader for
situations where no source directory is available (or in the worst case,
just using a temp file).
---
 kdesrc-build | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/kdesrc-build b/kdesrc-build
index 1169c84..c7697bf 100755
--- a/kdesrc-build
+++ b/kdesrc-build
@@ -994,7 +994,7 @@ my $run_mode = 'build'; # Determines if updating, building, installing, etc.
         # extragear/utils/kdesrc-build
         @xmlGroupingIds{qw/component module project/} = 1;
 
-        my ($class, $proj, $srcdir) = @_;
+        my ($class, $handle, $proj, $srcdir) = @_;
 
         $searchProject = $proj;
         @modules = ();
@@ -1012,7 +1012,7 @@ my $run_mode = 'build'; # Determines if updating, building, installing, etc.
                 },
         );
 
-        my $result = $parser->parsefile("$srcdir/kde_projects.xml");
+        my $result = $parser->parse($handle);
         return @modules;
     }
 
@@ -6056,12 +6056,14 @@ sub expandXMLModules
 
         my $name = $moduleSet->name();
         my $srcdir = $ctx->getSourceDir();
+        open my $file, '<', "$srcdir/kde_projects.xml" or
+            die make_exception('Runtime', "Unable to open $srcdir/kde_projects.xml: $!");
+
+        my @allXmlResults = KDEXMLReader->getModulesForProject($file, $name, $srcdir);
 
         # It's possible to match modules which are marked as inactive on
         # projects.kde.org, elide those.
-        my @xmlResults = grep {
-            $_->{'active'} ne 'false'
-        } (KDEXMLReader->getModulesForProject($name, $srcdir));
+        my @xmlResults = grep { $_->{'active'} ne 'false' } (@allXmlResults);
 
         if (!@xmlResults) {
             # If this was a "guessed XML module" then we guessed wrong, and it's really
@@ -6072,7 +6074,7 @@ sub expandXMLModules
 
             warning " y[b[*] Module y[$name] is apparently XML-based, but contains no\n",
                 "active modules to build!";
-            my $count = KDEXMLReader->getModulesForProject($name, $srcdir);
+            my $count = scalar @allXmlResults;
             if ($count > 0) {
                 warning "\tAlthough no active modules are available, there were\n",
                     "\t$count inactive modules. Perhaps the git modules are not ready?";