| … | |
… | |
| 805 | } |
805 | } |
| 806 | } |
806 | } |
| 807 | |
807 | |
| 808 | substr $dir, 0, 1 + length $PATH, ""; |
808 | substr $dir, 0, 1 + length $PATH, ""; |
| 809 | |
809 | |
| 810 | $RESOURCE{"$dir/$file"} = { |
810 | my %info = ( |
| 811 | type => (exists $meta->{type} ? delete $meta->{type} : $type), |
811 | type => (exists $meta->{type} ? delete $meta->{type} : $type), |
| 812 | data => $data, |
812 | data => $data, |
| 813 | %$meta ? (meta => $meta) : (), |
813 | %$meta ? (meta => $meta) : (), |
| 814 | }; |
814 | ); |
|
|
815 | |
|
|
816 | $RESOURCE{"$dir/$file"} = \%info; |
| 815 | } |
817 | } |
| 816 | |
818 | |
| 817 | sub process_any { |
819 | sub process_any { |
| 818 | while (my ($func, @args) = @{ $c_any->get }) { |
820 | while (my ($func, @args) = @{ $c_any->get }) { |
| 819 | $func->(@args); |
821 | $func->(@args); |
