--- trunk/lib/Frey/IconBrowser.pm 2008/12/11 21:36:42 817 +++ trunk/lib/Frey/IconBrowser.pm 2008/12/12 18:00:21 818 @@ -4,6 +4,7 @@ extends 'Frey'; with 'Frey::Web'; with 'Frey::Web::CombineImages'; +with 'Frey::File'; use Data::Dump qw/dump/; @@ -27,10 +28,7 @@ $self->title( 'icons - ' . $self->path ); my $extension = '\.(?:png)$'; - - opendir(my $dir, $self->path) || die "can't opendir ", $self->path, ": $!"; - my @icons = sort grep { m/$extension/ } readdir($dir); - closedir $dir; + my @icons = $self->dir_extension( $self->path, $extension ); my ( $combined_path, $styles ) = $self->combine_images( map { $self->path . '/' . $_ } @icons );