in reply to Automating help doc index as new modules are installed
use POSIX 'setsid'; use IO::Handle; # autoflush sub daemonize { chdir "/" or die "Cant chdir to /: $!"; open STDIN, "/dev/null" or die "Cant read /dev/null: $!"; open STDOUT, ">/dev/null" or die "Cant write to /dev/null: $!"; defined(my $pid = fork) or die "Cant fork: $!"; exit if $pid; setsid or die "Cant start a new session: $!"; open STDERR, ">&STDOUT" or die "Cant dup stdout: $!"; } daemonize(); open my $pws, q(podwebserver |) or die $!; autoflush $pws; while (<$pws>) { /You can now open your browser to/ and last; } system q(firefox -remote "openurl( http://localhost:8020/, new-tab)");
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});
|
|---|