Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- foreach my $CO_IMAGE ((
- glob("$module_root/*.inc.pl"),
- glob("$module_root/*/*.inc.pl"),
- ))
- {
- my $CO_TEXT = '';
- {
- local ($/) = undef;
- local *FILE;
- if(!open FILE, '<', $CO_IMAGE) {
- err "FATAL: $CO_IMAGE cannot be read";
- next;
- }
- $CO_TEXT = <FILE>;
- close FILE;
- }
- if(!$CO_TEXT =~ m{^#!\s*/bin/true\s*\n}m) {
- err "FATAL: $CO_IMAGE does not have a valid signature";
- next;
- }
- $CO_IMAGE =~ s!\Q$resource_root/modules.enabled/\E!!;
- {
- my $CO_IMAGE = $CO_IMAGE; # localize
- # Run included code
- eval $CO_TEXT;
- }
- if($@) {
- chomp $@;
- err "While loading ${bold}${CO_IMAGE}${bold}: $@";
- } else {
- push @CO_LIST, $CO_IMAGE;
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment