diff options
author | Mystery Man <unknown@mandriva.org> | 2005-09-02 22:32:32 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2005-09-02 22:32:32 +0000 |
commit | bd9ae60ea7df3a2dc09798ea1cba6f55f2c3f0e4 (patch) | |
tree | 7a03e33fba584c7014f990f1448a337627d50484 /tools/get-needed-drakx-modules | |
parent | 4da1048be0a7528a1a9f55e6f87cb2766508473b (diff) | |
download | drakx-backup-do-not-use-bd9ae60ea7df3a2dc09798ea1cba6f55f2c3f0e4.tar drakx-backup-do-not-use-bd9ae60ea7df3a2dc09798ea1cba6f55f2c3f0e4.tar.gz drakx-backup-do-not-use-bd9ae60ea7df3a2dc09798ea1cba6f55f2c3f0e4.tar.bz2 drakx-backup-do-not-use-bd9ae60ea7df3a2dc09798ea1cba6f55f2c3f0e4.tar.xz drakx-backup-do-not-use-bd9ae60ea7df3a2dc09798ea1cba6f55f2c3f0e4.zip |
This commit was manufactured by cvs2svn to create tagV10_3_0_53mdk
'V10_3_0_53mdk'.
Diffstat (limited to 'tools/get-needed-drakx-modules')
-rwxr-xr-x | tools/get-needed-drakx-modules | 19 |
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"; - } -} |