package Probe;

require Exporter;
@ISA = qw(Exporter);

@EXPORT = qw(&dynaloader);

use ExtUtils::Embed;

sub dynaloader {
  my @ldopts = (split(/\s+/, &ldopts(1)));
  for my $ldopt (@ldopts) {
    return $ldopt if $ldopt =~ /DynaLoader\.a$/;
  }
  return undef;
}

1;