view release on metacpan or  search on metacpan

lib/Alien/Build/Plugin/Probe/GnuWin32.pm  view on Meta::CPAN

sub _short ($)
{
  $_[0] =~ /\s+/ ? Win32::GetShortPathName( $_[0] ) : $_[0];
}

sub new
{
  my $class = shift;
  
  my $self = $class->SUPER::new(@_);
  
  if($self->registery_key_regex)
  {
    require Alien::Build;
    Alien::Build->log("warning: you are using a typo'd property, 'registery_key_regex', please use 'registry_key_regex' instead");
  }
  
  $self->registry_key_regex || $self->registry_key_regex($self->registery_key_regex) || Carp::croak "register_key_regex is required";
  
  $self;