[patch] more about embed.fnc in perlguts

[p5sagit/p5-mst-13.2.git] / t / run / switchx.t

diff --git a/t/run/switchx.t b/t/run/switchx.t
index 4676d1a..60a522c 100644 (file)
--- a/t/run/switchx.t
+++ b/t/run/switchx.t
@@ -6,5 +6,6 @@ BEGIN {
 }
 
 require './test.pl';
+use File::Spec::Functions;
 
-print runperl( switches => ['-x'], progfile => 'run/switchx.aux' );
+print runperl( switches => ['-x'], progfile => catfile(curdir(), 'run', 'switchx.aux') );