Quelle  suite.pm  Sprache: unbekannt

package My::Suite::Plugins;

use My::Platform;

@ISA = qw(My::Suite);

if (-d '../sql' && !&::using_extern()) {
  my $src = "$::bindir/plugin/auth_pam/auth_pam_tool";
  my $dst = "$::plugindir/auth_pam_tool_dir/auth_pam_tool";
  ::mkpath( "$::plugindir/auth_pam_tool_dir");
  eval { symlink $src, $dst } or ::copy $src, $dst;
}

sub skip_combinations {
  my %skip;
  $skip{'t/pam_init.inc'} = 'No pam setup for mtr'
             unless -e '/etc/pam.d/mariadb_mtr';
  $skip{'t/pam_init.inc'} = 'Not run as user owning auth_pam_tool_dir'
             unless -o $::plugindir . '/auth_pam_tool_dir';
  %skip;
}

bless { };