diff options
-rwxr-xr-x | draklive | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -415,7 +415,8 @@ sub inst_initrd_bin { my ($root, $initrd_tree, $bin) = @_; cp_f($root . $bin, $initrd_tree . '/bin/'); foreach my $file (`chroot $root ldd $bin | awk '/\\// {if(\$2 == "=>") {print \$3} else {print \$1}}'`) { - my ($lib_prefix, $filename) = chomp_($file) =~ m|/(lib[^/]*).*/([^/]+)$| or next; + chomp $file; + my ($lib_prefix, $filename) = $file =~ m|/(lib[^/]*).*/([^/]+)$| or next; my $dest = $initrd_tree . '/' . $lib_prefix . '/' . $filename; mkdir_p($initrd_tree . '/' . $lib_prefix); cp_f($root . $file, $dest) if !-f $dest; |