X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=blobdiff_plain;f=t%2Flib%2FTest%2FValgrind%2FFakeValgrind.pm;fp=t%2Flib%2FTest%2FValgrind%2FFakeValgrind.pm;h=ad7abfd347e61b96094a3a9080762885827e4500;hp=0d13a0d50fdf226fdd30410dbafc9c7861767956;hb=8a39103c14eb290a8af3a5f6662507d165644a01;hpb=0b935f05c60bef64abcb94f2c879d76565ae2b4f

diff --git a/t/lib/Test/Valgrind/FakeValgrind.pm b/t/lib/Test/Valgrind/FakeValgrind.pm
index 0d13a0d..ad7abfd 100644
--- a/t/lib/Test/Valgrind/FakeValgrind.pm
+++ b/t/lib/Test/Valgrind/FakeValgrind.pm
@@ -61,9 +61,9 @@ sub new {
   if (length $exe_ext and $exe_name !~ /\Q$exe_ext\E$/) {
    $exe_name .= $exe_ext;
   }
-  $self->{tmp_dir_obj}  = File::Temp->newdir(CLEANUP => 1);
-  $self->{tmp_dir}      = $self->{tmp_dir_obj}->dirname;
-  $self->{tmp_file}     = File::Spec->catfile($self->{tmp_dir}, $exe_name);
+  $self->{tmp_dir_obj} = File::Temp->newdir(CLEANUP => 1);
+  $self->{tmp_dir}     = $self->{tmp_dir_obj}->dirname;
+  $self->{tmp_file}    = File::Spec->catfile($self->{tmp_dir}, $exe_name);
  } else {
   # Can't use the OO interface if we don't wan't the file to be opened by
   # default, but then we have to deal with cleanup ourselves.
@@ -78,9 +78,9 @@ sub new {
    local $^W = 0;
    (File::Temp::tempfile(%args))[1]
   };
-  $self->{tmp_file}     = $tmp_file;
-  my ($vol, $dir)       = File::Spec->splitpath($self->{tmp_file});
-  $self->{tmp_dir}      = File::Spec->catpath($vol, $dir, '');
+  $self->{tmp_file} = $tmp_file;
+  my ($vol, $dir)   = File::Spec->splitpath($self->{tmp_file});
+  $self->{tmp_dir}  = File::Spec->catpath($vol, $dir, '');
  }
 
  my $code = _dummy_valgrind_code($version, $body);