diff options
author | Olivier Blin <oblin@mandriva.com> | 2007-12-13 16:30:13 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.com> | 2007-12-13 16:30:13 +0000 |
commit | ff0b3516b65429a6fb3a44231b1118a7feb9ce0a (patch) | |
tree | 3fb0ffbfa7bcf5ac1a55a2fa30256a5098682f39 | |
parent | 4df03187010d6be283df265821617a86273c6c6b (diff) | |
download | draklive-ff0b3516b65429a6fb3a44231b1118a7feb9ce0a.tar draklive-ff0b3516b65429a6fb3a44231b1118a7feb9ce0a.tar.gz draklive-ff0b3516b65429a6fb3a44231b1118a7feb9ce0a.tar.bz2 draklive-ff0b3516b65429a6fb3a44231b1118a7feb9ce0a.tar.xz draklive-ff0b3516b65429a6fb3a44231b1118a7feb9ce0a.zip |
chomp filename
-rwxr-xr-x | draklive | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -420,7 +420,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; |