chomp filename

1 files changed, 2 insertions, 1 deletions

diff --git a/draklive b/draklive
index 888905b..896eb3f 100755
--- a/draklive
+++ b/draklive
@@ -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;