| … | |
… | |
| 25 | our %EXTCMD = (); |
25 | our %EXTCMD = (); |
| 26 | |
26 | |
| 27 | _init_vars; |
27 | _init_vars; |
| 28 | |
28 | |
| 29 | our @EVENT; |
29 | our @EVENT; |
| 30 | our $LIBDIR = maps_directory "perl"; |
30 | our $LIBDIR = datadir . "/ext"; |
| 31 | |
31 | |
| 32 | our $TICK = MAX_TIME * 1e-6; |
32 | our $TICK = MAX_TIME * 1e-6; |
| 33 | our $TICK_WATCHER; |
33 | our $TICK_WATCHER; |
| 34 | our $NEXT_TICK; |
34 | our $NEXT_TICK; |
| 35 | |
35 | |
| … | |
… | |
| 720 | |
720 | |
| 721 | Symbol::delete_package $pkg; |
721 | Symbol::delete_package $pkg; |
| 722 | } |
722 | } |
| 723 | |
723 | |
| 724 | sub load_extensions { |
724 | sub load_extensions { |
| 725 | my $LIBDIR = maps_directory "perl"; |
|
|
| 726 | |
|
|
| 727 | for my $ext (<$LIBDIR/*.ext>) { |
725 | for my $ext (<$LIBDIR/*.ext>) { |
| 728 | next unless -r $ext; |
726 | next unless -r $ext; |
| 729 | eval { |
727 | eval { |
| 730 | load_extension $ext; |
728 | load_extension $ext; |
| 731 | 1 |
729 | 1 |
