From 15cf874f06142791acd3ca0da1c4c7bd5a999913 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 12 Jun 2008 17:58:36 +0000 Subject: remove dead code (done by install-xml-file-list now) --- rescue/make_rescue_img | 20 -------------------- 1 file changed, 20 deletions(-) (limited to 'rescue') diff --git a/rescue/make_rescue_img b/rescue/make_rescue_img index 383846ac4..863f45371 100755 --- a/rescue/make_rescue_img +++ b/rescue/make_rescue_img @@ -15,26 +15,6 @@ BEGIN { undef *_ } sub __ { print @_, "\n"; system(@_) } sub _ { __ @_; $? and die } -sub installown($$) { - my ($own, $dir) = @_; - return if -e "$tmp$dir/" . basename($own); - mkdir_p("$tmp$dir"); - _ "cp -rL $own $tmp$dir"; -} - -sub install_perl_script { - my ($script, $dir) = @_; - my @gi_modules; - foreach (`../tools/get-needed-drakx-modules /usr/lib/libDrakX /usr/lib/libDrakX $script`) { - chomp; - my ($local, $dest) = split "\t"; - installown($local, dirname($dest || $local)); - push @gi_modules, "$tmp$dest" if $dest; - } - installown($script, $dir); - system('../tools/simplify-drakx-modules', @gi_modules, "$tmp$dir/$script"); -} - _ "rm -rf $tmp" if -e $tmp; _ "mkdir $tmp"; _ 'find . -name "*~" | xargs rm -f'; -- cgit v1.2.1