Avoid stating all files in rom dir

frioux · Sep 27, 2015 · a37f26d · a37f26d
1 parent 3b17390
commit a37f26d
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/lib/WWW/RetroPie/Game/Picker.pm b/lib/WWW/RetroPie/Game/Picker.pm
@@ -54,16 +54,18 @@ sub dispatch_request {
 
          return $self->_forbidden unless $system =~ m/^[\w]+$/;
 
+         my $sysdir = io->dir($self->_config->real_roms_dir, $system);
          '/' => sub {
             my %links =
                map { $_->readlink => 1 }
                grep $_->is_link,
                io->dir($self->_config->retropie_roms_dir, $system)->all;
 
+            my $sysdir_path = $sysdir->name;
             my @games = map +{
-               name => $_->filename,
-               linked => $links{$_->name}
-            }, io->dir($self->_config->real_roms_dir, $system)->all;
+               name => $_,
+               linked => $links{"$sysdir/$_"}
+            }, $sysdir->readdir;
 
             $self->_html_200('all_games', {
                system => $system,