diff options
Diffstat (limited to 'update-ldetect-lst')
| -rw-r--r-- | update-ldetect-lst | 6 |
1 files changed, 5 insertions, 1 deletions
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>; + } } |