From ff0b3516b65429a6fb3a44231b1118a7feb9ce0a 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(-)

(limited to 'draklive')

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;
-- 
cgit v1.2.1