1 # Open in their package.
13 # But only this sub name is visible to them.
19 if (!$isopen{$file}) {
20 if (++$numopen > $maxopen) {
21 local(@lru) = sort {$isopen{$a} <=> $isopen{$b};} keys(%isopen);
22 splice(@lru, $maxopen / 3);
24 for (@lru) { &close($_); delete $isopen{$_}; }
26 &open($file, ($saw{$file}++ ? '>>' : '>') . $file)
27 || die "Can't create $file: $!\n";
29 $isopen{$file} = ++$seq;
37 if (open(PARAM,'/usr/include/sys/param.h')) {
40 $maxopen = $1 - 4 if /^\s*#\s*define\s+NOFILE\s+(\d+)/;
44 $maxopen = 16 unless $maxopen;