remove build dependent strings from probe.pl

inc/My/Config.pm

@@ -127,27 +127,24 @@ sub probe
 {
   my($self) = @_;
 
-  my $probe = $self->{probe} ||= FFI::Probe->new(
+  $self->{probe} ||= FFI::Probe->new(
     runner => $self->probe_runner,
     log => "config.log",
     data_filename => "./blib/lib/auto/share/dist/FFI-Platypus/probe/probe.pl",
     alien => [$self->share_config->get('alien')->{class}],
     cflags => ['-Iinclude'],
   );
+}
 
-  unless(exists $probe->data->{alien})
-  {
-    my $class = $self->share_config->get('alien')->{class};
-    my $pm = $class . ".pm";
-    $pm =~ s{::}{/}g;
-    require $pm;
-    $probe->set( 'alien', 'ffi', 'class'    => $class                    );
-    $probe->set( 'alien', 'ffi', 'version', => $class->config('version') );
-    $probe->set( 'alien', 'ffi', 'cflags'   => $class->cflags            );
-    $probe->set( 'alien', 'ffi', 'libs'     => $class->libs              );
-  }
+sub probe2
+{
+  my($self) = @_;
 
-  $probe;
+  my $probe = $self->{probe2} ||= FFI::Probe->new(
+    runner => $self->probe_runner,
+    log => "config.log",
+    data_filename => "./_mm/probe.pl",
+  );
 }
 
 sub probe_runner
@@ -169,9 +166,10 @@ sub probe_runner_build
 {
   my($self) = @_;
   my $probe = $self->probe;
+  my $probe2 = $self->probe2;
   my $builder = FFI::Probe::Runner::Builder->new;
   foreach my $key (qw( cc ccflags optimize ld ldflags ))
-  { @{ $builder->$key } = @{ $probe->data->{eumm}->{$key} } }
+  { @{ $builder->$key } = @{ $probe2->data->{eumm}->{$key} } }
   $builder->build unless -e $builder->exe;  
 }
 
@@ -374,9 +372,9 @@ sub platform
 {
   my($self) = @_;
   my %Config = %Config;
-  foreach my $key (keys %{ $self->probe->data->{eumm} })
+  foreach my $key (keys %{ $self->probe2->data->{eumm} })
   {
-    $Config{$key} = $self->probe->data->{eumm}->{$key};
+    $Config{$key} = $self->probe2->data->{eumm}->{$key};
   }
   require FFI::Build::Platform;
   FFI::Build::Platform->new(\%Config);

inc/mm-config-set.pl

@@ -7,4 +7,16 @@
 my @key = split /\./, $key;
 
 my $config = My::Config->new;
-$config->probe->set(@key, \@value);
+
+use YAML ();
+warn YAML::Dump(\@key);
+
+my $probe;
+
+if($key[0] && $key[0] eq 'eumm')
+{ warn "1"; $probe = $config->probe2 }
+else
+{ warn "2"; $probe = $config->probe }
+
+$probe->set(@key, \@value);
+$probe->save;

lib/FFI/Probe.pm

@@ -561,7 +561,11 @@ sub save
     ->Sortkeys(1)
     ->Dump;
 
-  mkpath( $dir, 0, 0755 ) unless -d $dir;
+  unless(-d $dir)
+  {
+    require File::Path;
+    File::Path::mkpath( $dir, 0, 0755 );
+  }
 
   my $fh;
   open($fh, '>', $self->{data_filename}) || die "error writing @{[ $self->{data_filename} ]}";