Das ist das Snippet, was das derzeit berechnet:
# Figure out in which subfolder we are installed
our $psubfolder = abs_path($0);
$psubfolder =~ s/(.*)\/(.*)\/(.*)$/$2/g;
Ich habe experimentiert (s.u.) - Was denkt ihr, ist diese alternative Berechnung "plattformübergreifend" stabil?
#!/usr/bin/perl
use Cwd 'abs_path';
use File::HomeDir;
our $home = File::HomeDir->my_home;
# my $home = '/opt/loxberry';
my $part = substr ((abs_path($0)), (length($home)+1));
our ($psubfolder) = (split(/\//, $part))[3];
print "\nPlugin root directory: $psubfolder\n";
lg, Christian