chiark
/
gitweb
/
~ian
/
chiark-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
prefork-interp: @autoreload_extra_files
[chiark-utils.git]
/
scripts
/
Proc
/
Prefork
/
Interp.pm
diff --git
a/scripts/Proc/Prefork/Interp.pm
b/scripts/Proc/Prefork/Interp.pm
index 04b536e22b58d64fda06f8f44b06abdc22bb0627..ab29ebc0fa7f631397a1e6ad3e359503f20b661f 100644
(file)
--- a/
scripts/Proc/Prefork/Interp.pm
+++ b/
scripts/Proc/Prefork/Interp.pm
@@
-3,6
+3,7
@@
package Proc::Prefork::Interp;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(initialisation_complete);
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(initialisation_complete);
+our @EXPORT_OK = qw(@autoreload_extra_files);
use strict;
use strict;
@@
-22,6
+23,8
@@
our $socket_path;
our $fail_log = 0;
our $startup_mtime;
our $fail_log = 0;
our $startup_mtime;
+our @autoreload_extra_files = ();
+
sub fail_log ($) {
my ($m) = @_;
if ($fail_log) {
sub fail_log ($) {
my ($m) = @_;
if ($fail_log) {
@@
-303,6
+306,9
@@
sub initialisation_complete {
autoreload_check($f);
}
}
autoreload_check($f);
}
}
+ foreach my $f (@autoreload_extra_files) {
+ autoreload_check($f);
+ }
foreach my $f (@{ %opts{autoreload_extra} // [] }) {
autoreload_check($f);
}
foreach my $f (@{ %opts{autoreload_extra} // [] }) {
autoreload_check($f);
}