Move sub from dh to D::DH::SequencerUtil

Signed-off-by: Niels Thykier <niels@thykier.net>

1 files changed, 0 insertions, 17 deletions

diff --git a/dh b/dh
index 566432ff..6afa234c 100755
--- a/dh
+++ b/dh
@@ -1047,23 +1047,6 @@ sub can_skip {
 	return 1;
 }
 
-sub extract_skipinfo {
-	my ($command) = @_;
-
-	foreach my $dir (split (':', $ENV{PATH})) {
-		if (open (my $h, "<", "$dir/$command")) {
-			while (<$h>) {
-				if (m/PROMISE: DH NOOP( WITHOUT\s+(.*))?\s*$/) {
-					close $h;
-					return split(' ', $2) if defined($2);
-					return ('always-skip');
-				}
-			}
-			close $h;
-			return ();
-		}
-	}
-}
 
 =head1 SEE ALSO