-foreach my $size (keys %req_icons) {
- my $sizestr = $size.'x'.$size;
- opendir (BASEDIR, "$oxygen/$sizestr") or die "Could not open dir for size $size\n";
- foreach my $cat (readdir BASEDIR) {
+opendir (BASEDIR, "$oxygen") or die "Could not open oxygen basedir\n";
+foreach my $sizestr (readdir BASEDIR) {
+ next unless $sizestr =~ /\d+x\d+/;
+ opendir (SIZEDIR, "$oxygen/$sizestr") or die "Could not open dir $sizestr\n";
+ foreach my $cat (readdir SIZEDIR) {