From e1f548ab495b995a754d3d93109ef9d56c9071aa Mon Sep 17 00:00:00 2001
From: Michael Pyne <mpyne@kde.org>
Date: Thu, 13 Oct 2011 21:01:22 -0400
Subject: [PATCH] Add util function to see if a given phase should be run.

---
 kdesrc-build | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/kdesrc-build b/kdesrc-build
index ecdaa2b..bf6e1cd 100755
--- a/kdesrc-build
+++ b/kdesrc-build
@@ -895,6 +895,13 @@ my $run_mode = 'build'; # Determines if updating, building, installing, etc.
         push @{$self}, $phase unless list_has([@{$self}], $phase);
     }
 
+    # Returns true if the given phase name is present in this list.
+    sub has
+    {
+        my ($self, $phase) = @_;
+        return grep { $_ eq $phase } (@{$self});
+    }
+
     # Get/sets number of phases depending on whether any are passed in.
     sub phases
     {