view release on metacpan or  search on metacpan

bin/org-daemon  view on Meta::CPAN

    require File::Basename;
    my @perldirs = grep { defined $_ && -x $_ } ($Config::Config{'sitebin'}, $Config::Config{'scriptdir'});
    push @perldirs, File::Basename::dirname(File::Basename::dirname($^X)); # for the SiePerl installation
    my $perldir;
 TRY: {
	no warnings 'once';
	# "local" probably does not work here, we're in a MainLoop...
	$Data::Dumper::Deparse = 1; # if I need a "ptksh" window, then I need more diagnostics!
	$Data::Dumper::Sortkeys = 1;

	local @ARGV; # ptksh would read 1st argument as perl script

        # Find the ptksh script
        for $perldir (@perldirs) {
            if (-r "$perldir/ptksh") {
		require "$perldir/ptksh";
                last TRY;
            }
        }
	$perldir = File::Basename::dirname($^X);
	if (-r "$perldir/ptksh") {