gistfile1.txt

  1 sub scan {                                                                                                                  │···········
  2     say " - Scanning for new posts";                                                                                        │···········
  3     $latest = 0;                                                                                                            │···········
  4     for dir('posts') -> $file {                                                                                             │···········
  5         $latest++ if !$file.basename.starts-with('.') && $file.basename.ends-with('.html');                                 │···········
  6     }                                                                                                                       │···········
  7     @titles = Nil;                                                                                                          │···········
  8     loop (my $i = $latest; $i > 0; $i--) {                                                                                  │···········
  9         @titles[$latest - $i] = "posts/$i.html".IO.lines[0];                                                                │···········
 10     }                                                                                                                       │···········
 11 }              
 
 
 

Unhandled exception in code scheduled on thread 4                                                                               │···········
Failed to open file /root/blog/posts/1.html: Too many open files