fix path to executables

1 files changed, 2 insertions, 4 deletions

diff --git a/t/run.t b/t/run.t
index 8df717a..7dfed7d 100755
--- a/t/run.t
+++ b/t/run.t
@@ -6,11 +6,9 @@ use warnings;
 
 use IPC::Run qw/run/;
 use Test::More tests => 54;
-use FindBin;
+use FindBin qw/$Bin/;
 use File::Temp qw/tempdir/;
 
-my $path = "$FindBin::Bin/";
-
 my ($out, $err);
 delete $ENV{RPM_BUILD_ROOT};
 
@@ -50,6 +48,6 @@ foreach my $prog qw/
 sub run_prog {
     my ($prog, @args) = @_;
 
-    run (["$FindBin::Bin/$prog", @args], \my($in, $out, $err));
+    run (["$Bin/../$prog", @args], \my($in, $out, $err));
     return ($out, $err);
 }