From: Vincent Pit Date: Mon, 16 Nov 2015 14:28:39 +0000 (-0200) Subject: Reindent a few lines X-Git-Tag: v1.18~1 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=commitdiff_plain;h=8a39103c14eb290a8af3a5f6662507d165644a01 Reindent a few lines Whitespace-only change. --- 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);