summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-04-21 15:09:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-04-21 15:09:17 +0000
commit918c8de379d2bae26b1d3e9cf870a5ffa564c4b5 (patch)
tree413c76fb882b08f820d7bffc121ccae5da04e526
parente4b3dfd157601c60306c3c4e185adb5469ff8e74 (diff)
downloaddrakx-918c8de379d2bae26b1d3e9cf870a5ffa564c4b5.tar
drakx-918c8de379d2bae26b1d3e9cf870a5ffa564c4b5.tar.gz
drakx-918c8de379d2bae26b1d3e9cf870a5ffa564c4b5.tar.bz2
drakx-918c8de379d2bae26b1d3e9cf870a5ffa564c4b5.tar.xz
drakx-918c8de379d2bae26b1d3e9cf870a5ffa564c4b5.zip
add some scripts used in perl-install/Makefile and rescue/make_rescue_img
-rwxr-xr-xtools/get-needed-drakx-modules19
-rwxr-xr-xtools/simplify-drakx-modules3
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