From 04234d4d66b8a6e07242e7bc320b146fcbce8d34 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 13 Dec 2007 16:30:13 +0000
Subject: chomp filename

---
 draklive | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/draklive b/draklive
index ad1295f..c9e3e38 100755
--- a/draklive
+++ b/draklive
@@ -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;
-- 
cgit v1.2.1