This commit was manufactured by cvs2svn to create tagV10_3_0_50mdk

'V10_3_0_50mdk'.

1 files changed, 0 insertions, 19 deletions

diff --git a/tools/get-needed-drakx-modules b/tools/get-needed-drakx-modules
deleted file mode 100755
index 019820c04..000000000
--- a/tools/get-needed-drakx-modules
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl
-
-use MDK::Common;
-
-my ($rel, $dest, $script) = @ARGV;
-
-$rel =~ s!/?$!!;
-
-foreach (`strace -efile perl -cw -I $rel $script 2>&1`) {
-    my ($f) = /^open\("(.*?)",.*\)\s*=\s*\d+$/ or next;
-    $f !~ m!/usr/lib/perl5/[^/]*/warnings.pm! or next;
-    if (begins_with($f, $rel)) {
-	print $f, "\t", $dest . substr($f, length($rel)), "\n";
-    } elsif (begins_with($f, '/dev/')) {
-	# skip
-    } elsif (begins_with($f, '/')) {
-	print "$f\n";
-    }
-}