diff options
| -rwxr-xr-x | tools/get-needed-drakx-modules | 19 | ||||
| -rwxr-xr-x | tools/simplify-drakx-modules | 3 |
2 files changed, 22 insertions, 0 deletions
diff --git a/tools/get-needed-drakx-modules b/tools/get-needed-drakx-modules new file mode 100755 index 000000000..019820c04 --- /dev/null +++ b/tools/get-needed-drakx-modules @@ -0,0 +1,19 @@ +#!/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"; + } +} diff --git a/tools/simplify-drakx-modules b/tools/simplify-drakx-modules new file mode 100755 index 000000000..9276a64dd --- /dev/null +++ b/tools/simplify-drakx-modules @@ -0,0 +1,3 @@ +#!/usr/bin/perl -pi + +s/^\s*use\s+(diagnostics|strict|vars|warnings).*//g |