From 918c8de379d2bae26b1d3e9cf870a5ffa564c4b5 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 21 Apr 2005 15:09:17 +0000 Subject: add some scripts used in perl-install/Makefile and rescue/make_rescue_img --- tools/get-needed-drakx-modules | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100755 tools/get-needed-drakx-modules (limited to 'tools/get-needed-drakx-modules') 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"; + } +} -- cgit v1.2.1