From 3a297c6d6123ecf5c26f4f75573a2efa15a27498 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 6 Apr 2003 21:54:57 +0000
Subject: don't use cat(1) in update-ldetect-lst (fix bug #3678)

---
 update-ldetect-lst | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'update-ldetect-lst')

diff --git a/update-ldetect-lst b/update-ldetect-lst
index d0921017..8b351fc8 100644
--- a/update-ldetect-lst
+++ b/update-ldetect-lst
@@ -11,5 +11,9 @@ foreach (@files) {
     my $d = "$dir/$_.d";
     -d $d or next;
     my @l = sort glob("$d/*.lst") or next;
-    system("cat " . join(" ", @l) . " > $dir/$_");
+    open(my $OUT, " > $dir/$_");
+    foreach (@l) {
+	open(my $IN, $_) or next;
+	print $OUT $_ foreach <$IN>;
+    }
 }
-- 
cgit v1.2.1